[The Shadow]

Если это все еще нужно, то зациклить процесс можно так:
var
Msg: TMsg;
---
while GetMessage(Msg, HInstance, 0, 0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;