去后台操作的摸样
program xxxx;

// ........................

var
  x: TMsg;

begin
  PostThreadMessage(GetCurrentThreadId(), WM_NULL, 0, 0);
  GetMessage(x, 0, 0, 0); // 或 PeekMessage(x, 0, 0, 0, 0);

  // ........................................

end.