[geniusbsd]

Используя такой код

Код:

program WorkShop;
uses
  Vcl.Forms,
  Winapi.Windows,
  MainUnit in 'MainUnit.pas' {MainForm},
  LoginUnit in 'LoginUnit.pas' {LoginForm},
  DModuleUnit in 'DModuleUnit.pas' {DMForm: TDataModule},
  SettingsUnit in 'SettingsUnit.pas' {SettingsForm};

{$R *.res}

 begin


Application.CreateForm(TDMForm, DMForm);

While True Do
Begin
if Not TLoginForm.Execute then
begin
Application.MessageBox('Проверьте имя пользователя и пароль!', 'Ошибка авторизации',(MB_ICONWARNING));

//Halt(0)
end
Else
   if (DMForm.ADOQueryFase.RecordCount>0)Then
    Begin
      Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
      Exit;
    End;
End;


 end.

Результат точно такой же как и в моем коде

А мне требуется что бы при не правильном пароле выдавалось сообщение об ошибке и происходила следующая попытка пока пароль не будет правильный.
А если нажимаю на кнопку отмена или закрыть происходило закрытие программы без вывода сообщений