为什么 Application.Terminate;不能结束程序

Question

////////////请参阅如下代码结束进程/////////////////
var
    nRetChkUsrVal : Integer;
    sTemp : string;
    label start;
begin
    inherited;
 if ParamCount < 2 then
    begin   // not found parameter
        nRetChkUsrVal := frmDlgl.ShowModal;
start:
        if nRetChkUsrVal <> mrOK then
        begin   // check user failed
            application.Terminate;
            exit;
        end;
    end
    else
    begin
        // get user name and password
        sTemp := ParamStr(1);
        StrCopy(@g_tsUserInfo.aryBsName,
     PChar(sTemp));
        sTemp := ParamStr(2);
        StrCopy(@g_tsUserInfo.aryPwd,
     PChar(sTemp));        if CheckUser(g_tsUserInfo.aryBsName,
            g_tsUserInfo.aryPwd) <> 0 then
        begin
            nRetChkUsrVal := frmDlgl.ShowModal;
            if nRetChkUsrVal <> mrOK then
            begin   // check user failed
                application.Terminate;
                exit;
            end;
        end;
    end;

Answer 1

Application.Terminate;只是向程序发一个中止消息而已,
这时属性 Aplication.Terminated变为真;你的程序必须
测试它,若为真就赶快结束执行;

Answer 2

同意 　BCB(:))　
建议你还是用close;