原来的：
procedure OKbox(p:String;t:String='提示信息');
begin
application.MessageBox(pchar(p),pchar(t),MB_OK or MB_ICONINFORMATION);
end;

新加的一行：
procedure OKboxForTop(p:String;t:String='提示信息');
begin
windows.MessageBox(application.{DialogHandle}MainForm.Handle,pchar(p),pchar(t),
MB_OK or MB_ICONINFORMATION);
end;