怎样做delphi程序连接数据库失败,单机确定就关闭窗体

我单机确定还会显示窗体？？

Application.Terminate;