- while GetMessage(msg, 0, 0, 0) do //wartet bis eine Nachricht eintrifft
- begin
- repeat
- TranslateMessage(msg);
- DispatchMessage(msg);
- until Not (PeekMessage(msg, 0, 0, 0,PM_REMOVE)) //gibt es weitere Nachrichten dann werden sie verarbeitet (ohne zu warten)
- DoIdle; //wird nur ausgefuehrt wenn keine Nachricht kommt
- end;