Delphi dicas

Login rapido

Procedure TFrmLogin.BitBtnLogarClick(Sender: TObject);

begin

        if (EdtLogin.Text = '') or (EdtSenha.Text = '') then

        begin

                MessageDlg('Usúario ou senha em branco!',mtWarning, [mbOK], 0);

                EdtLogin.Clear;

                EdtSenha.Clear;

                EdtLogin.SetFocus;

        end

        else

        if (EdtLogin.Text = 'admin') and (EdtSenha.Text <> '123') then

        begin

                MessageDlg('Senha inválida',mtWarning, [mbOK], 0);

                EdtSenha.Clear;

                EdtSenha.SetFocus;

        end

        else

        if (EdtLogin.Text <> 'admin') and (EdtSenha.Text = '123') then

        begin

                MessageDlg('Login inválida',mtWarning, [mbOK], 0);

                EdtLogin.Clear;

                EdtLogin.SetFocus;

        end

        else

        if (EdtLogin.Text = 'admin') and (EdtSenha.Text = '123') then

        begin

                FrmPrincipal:=TFrmPrincipal.Create(Application);

                FrmPrincipal.Show;

                FrmLogin.Hide;

        end

end;