Висит процесс, как его можно убрать?

[HAMMAN]

Проблема такая, сделал окно авторизации, по нажатию OnClick на Button вписал следущее:

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;

И постоянно у меня после завершения программы остается программа в процессах ...

[HAMMAN]

Что совсем никак чтоли?Может следует заменить что-нибудь ...

[AngelOfDeath]

Попробуй заменить Application.Terminate; на Close

[HAMMAN]

Процесс продолжает висеть

[ShiKaku]

Может application.free? Это лучше, чем Terminate. К томуже форму пароля лучше уничтожать по событию PassForm.onclose

[Kashp]

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

Проблема такая, сделал окно авторизации, по нажатию OnClick на Button вписал следущее:

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;

И постоянно у меня после завершения программы остается программа в процессах ...

Так просто закрывай главную форму и не будет процесса (MainForm.Close; )