Public App_bRunning As Boolean ' 程序运行标志，启动时设成True，如果是False，则跳出事件检测循环
' 主函数
Public Sub Main()
'程序初始化
..............................
' 主循环
App_bRunning = True
Do While App_bRunning
..........................................
.......................................
DoEvents
Sleep 1
Loop
' 进程关闭处理
.............................................
End Sub

var App_bRunning:Boolean ' 程序运行标志，启动时设成True，如果是False，则跳出事件检测循环
procedure do1;
begin
App_bRunning := True
While App_bRunning
begin
..........................................
.......................................
application.processmessages;
end;
.............................................
End;