Permanecer o Form aberto

Pessoal   Estou fazendo uma rotina aqui para logar no sistema informando login e senha.. Porém quando é informado o LOGIN errado ou senha está fechando o form mas quero que ele permaneça aberto. Segue abaixo o código:   if (trim(edUsuario.text) <> '') and
      (trim(edSenha.Text) <> '') then
   begin
     SqlBusca := TSqlDataset.Create(Nil);
     with SqlBusca do
     begin        SQLConnection := DmConexao.SqlConexao;        s := ' Select * from CADUSU U WHERE U.dslog_usu = ' +
             QuotedStr(edUsuario.Text);         Close;
        CommandText := '';
        CommandText := s;
        Open;
        if not Eof then
        begin
           sSenha := unFuncao.Cripto(trim(edSenha.Text));
           s := ' Select * from CADUSU U WHERE U.dslog_usu = ' +
                QuotedStr(edUsuario.Text) +
                ' and u.DSSEN_USU = ' + QuotedStr(sSenha);           Close;
          CommandText := '';
          CommandText := s;
          Open;
          if Eof then
          begin
            Application.MessageBox('Senha não confere','Alerta',
            mb_iconwarning);
           // abort;
          end
          else
          begin
             if Application.findcomponent('TfrmPrincipal') = nil then
             begin
               Screen.Cursor := crHourglass;
               Application.Createform(TfrmPrincipal, frmPrincipal);
               frmPrincipal.Name := 'TfrmPrincipal';
               Screen.Cursor := crDefault;
               cascade;
             end
             else
             begin
              TForm( Application.findcomponent('TfrmPrincipal')).BringToFront;
              Ativo := FrmAcesso.ActiveMDIChild;
              Ativo.WindowState := wsNormal;
             end;
          end;
        end
        else
        begin
         Application.MessageBox('Usuário  não confere','Alerta',
            mb_iconwarning);         end;
     end;
   end;
   FreeAndNilObj([SqlBusca]);
 end;   Estou usando Delphi 7 + Firebird + dbx   Fico no aguardo