Hallo Martin,
vielleicht möchtest du es noch ein wenig an deine Bedürfnisse anpassen, aber das sollte mit der Online Hilfe kein Problem sein:
Delphi-Quellcode:
procedure ProcessMessages;
var
Msg: TMsg;
begin
if PeekMessage (Msg, 0, 0, 0, PM_REMOVE) then begin
TranslateMessage (Msg);
DispatchMessage (Msg);
end;
end;
Grüße vom marabu