Запрет на закрытие окна

[Bayazet]

у меня есть программа, перед запуском которой мне необходимо запросить пароль.
как сделать так, чтобы нельзя было закрыть окно для ввода пароля?
(т.е. либло ты ввел пароль верно и все заработало, либо выход)

я показываю формы так:

    PasForm := TForm2.Create(nil);
    PasForm.ShowModal;
    Form1 := TForm1.Create(nil);
    Form1.ShowModal;

где PasForm - форма запроса пароля
Form1 - собственно то, что должно запускать при корректном вводе

[Bayazet]

дааа..
поторопился я создавать тему:

    PasForm := TForm2.Create(nil);
    PasForm.ShowModal;
    If correct then
    begin
      Form1 := TForm1.Create(nil);
      Form1.ShowModal;
    end;

correct - булевая переменная, которая тру, когда верное или фолс когда нет (плюс, она по умолчанию фолс)

[progan]

а можно просто по событию Onclose выводить форму с запросом пароля и если пароль подтверждается то закрывать форму а если нет то не закрывать.

[KORN]

либо при запуске спросить пароль если не подходит пишешь: application.terminate;

[Kostia]

У формы есть такое событие OnCloseQuery. Попробуйте поработать с ним.

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=false;
end;