Не верно работает код

[MixanMM]

Добрый день, коллеги, подскажите , такая ситуация, сделал форму логин пароль, но если в окне не верно ввести код, то программа все равно запускается:

procedure login() ;
var
pas,mysql:string;
begin
 Form2:= TForm2.Create(Application);
       if Form2.ShowModal = mrOk then begin
       Form2.ADOQuery1.Active := false;
       Form2.ADOQuery1.SQL.Clear;
       mysql:= 'SELECT pass FROM users WHERE login='''+ Form2.ComboBox1.Text+'''';
       Form2.ADOQuery1.SQL.Add(mysql);
       Form2.ADOQuery1.Active := True;

             pas:= Form2.ADOQuery1.Fields[0].AsString;
             if pas<>Form2.Edit1.Text then
                 begin
                 Showmessage('Неверный пароль');
                 zapysk:=0;
                 Form2.Show;
                 Form2.Edit1.SetFocus;
                 Form1.Hide;

                 end;
       end
        else
begin
 Application.Terminate; // Закрытие программы.
end
 end;



procedure TForm1.FormCreate(Sender: TObject);
begin
 login();
end;

Подскажите, как правильно прерывание кода сделать после неудачной попытки, перезапуск приложения?

[evg_m]

                 Form1.Hide;

это "главная форма" приложения?
ее управляете(Show/Hide) не только вы(написанный ВАМИ код) но и само приложение(внутренний код Application).
и его код (Application) выполнится после вашего Login();
а там Show; и ...

1.проверять и "прятать" после показа приложением
использовать другое событие OnCreate --> OnShow

function Login: boolean;
begin // и забыть здесь о существовании Form1. (не использовать эту переменную в этой функции
...
                 Form1.Hide;
...
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 if not login() then begin
   self.Hide; // программы "не видно", НО она существует и может даже работать.
   self.Close; //закроет форму и программу тоже
 end;
end;

перезапуск приложения?

или повторный показ формы запроса пароля?

result:=false;
repeat
  if form2.showModal<>mrok then break;
  result:=( pass =form2.Edit1.Text);
  if result then break;
until ... // и сколько раз будем показывать(повторять) при неудачных попытках ?

[MixanMM]

Спасибо, всё работает