请问在程序中如何强行关闭程序

Question

   我在程序中有一句是连接数据库的，在连接不成是强行关闭程序，但是，我有了application.Terminate;
application.run;都不行，
因为在程序的下方就是一个函数，它要访问数据库
函数在
application.Terminate;
application.run;
之后，
但是，程序没有自动关闭，还是去运行下面的函数。导致错误。
请问在函数之前怎么强行关闭程序。

Answer 1

application.Terminate;
exit；
下面的函数就步会执行了

Answer 2

procedure KillSelfRudly;
begin
    TerminateProcess(GetCurrentProcess, 1);
end;

Answer 3

application.run是让程序继续执行吧！
用sysutils.Abort试试