Win32 API: Nachrichtenschleife und 100% CPU Auslastung

[Nonsense]

Hallo,

durch folgende Nachrichtenschleife habe ich eine CPU-Auslastung von 100%:

Delphi-Quellcode:

  while not Finished do
    if (PeekMessage(Msg, 0, 0, 0, PM_REMOVE)) then
      if (Msg.Message = WM_QUIT) then
      begin
        Finished := True;

        [ ... (Instanzen freigeben etc.) ]
      end else
      begin
     TranslateMessage(Msg);
        DispatchMessage(Msg);
      end
    else
      ProcessKeys; // Tastatureingaben verarbeiten

PeekMessage könnte ich durch GetMessage ersetzen und das Freigeben von Instanzen kann ich dann in's WM_DESTROY tun. Nur wo schiebe ich dann mein ProcessKeys rein?
Hat jemand eine Alternative für mich?

Thx.