Alternatywa ProcessMessages

Witam. Zna może ktoś procedure, która by działała identycznie jak Application.ProcessMessages tylko żeby nie wymagała Forms.pas, ponieważ mój cały program opiera się bez tego pliku i jest dość małych rozmiarów, lecz używam funkcji Sleep i do tego potrzebne mi jest ProcessMessages. Z góry dziękuję za odpowiedź.

wydaje mi sie ze mozna to zamienic poprzez odbior odpowiedniego komunikatu windowsa i odpowiednia odpowiedz, sam kiedys o tym myslalem ale mi wystarczyla ta procedurka

To uproszczona wersja:

procedure MyProcessMessages;
var
  Msg: TMsg;
begin
  while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
  begin
    if Msg.Message <> WM_QUIT then
    begin
        TranslateMessage(Msg);
        DispatchMessage(Msg);
    end
  end;
end;