Окно авторизации

[HAMMAN]

Сделал окно авторизации пользователей, только почему - то после выхода из программы, она всё равно остается в прцессах, может ей мешает функция PassForm.Destroy?
на что её можно заменить?

procedure TPassForm.BitBtn1Click(Sender: TObject);
begin
If (Edit1.Text='admin') and (Edit2.Text='777') then
Begin
MainForm:=TMainform.Create(Applicat ion);
MainForm.Show;
PassForm.Destroy;
end
else
Begin
MessageDlg('Пароль или логин неверен.Работа программы будет завершена',mtWarning,[Mbok],0);
Application.Terminate;
end;
end;

[Veiron]

По хорошему лучше заменить:
PassForm.Destroy; -> PassForm.Close;
Application.Terminate; -> PassForm.Close;
Вообще жестоко вы свою форму мучаете терминатор-дестроями

[HAMMAN]

Сообщение от Veiron

По хорошему лучше заменить:
PassForm.Destroy; -> PassForm.Close;
Application.Terminate; -> PassForm.Close;
Вообще жестоко вы свою форму мучаете терминатор-дестроями

Что скинули, то и воткнул, спасибо за ИНФУ!