请教，怎样真正关闭应用程序(50分)

我在主表单的create中写入：
procedure Tmain.FormCreate(Sender: TObject);
begin
decodedate(date,yy,mm,dd);
adoconnection1.ConnectionString:=gfn_GetConnectionString;
try
adoconnection1.Connected:=true;
except
Application.MessageBox('连接数据库失败','系统提示',mb_OK);
application.Terminate;
end;
end;

可是，这样，当连接不上时，应用程序确实在表面上是关闭了，但在任务管理器的进程里还是可以看的到，应该怎样做才能真正关闭呢，我再加上
close/free/main:=nil之类也都不行。

另附项目程序如下：
Application.Initialize;
Application.CreateForm(Tmain, main);
Application.CreateForm(Tcover, cover);
cover.ShowModal;
Application.CreateForm(Tlogin, login);
if login.ShowModal = mrOK then
Application.Run
else
Application.Terminate;

试试 halt;

最好到form的onclose事件里面写代码

可以了，谢谢：）