Fehlermeldung bei Delay

[gargano]

Hi Leute,
ich verwende für das Delay folgenden Code

Delphi-Quellcode:

procedure TGenericComDeviceDataModule.Delay(Milliseconds: Integer);
var
  Tick: DWORD;
  Event: THandle;
begin
{$R-}
  Event := CreateEvent(nil, False, False, nil);
  try
    Tick := GetTickCount + DWORD(Milliseconds);
    while (Milliseconds > 0) and
      (MsgWaitForMultipleObjects(1, Event, False, Milliseconds,
      QS_ALLINPUT) <> WAIT_TIMEOUT) do
    begin
      Application.ProcessMessages;
      Milliseconds := Tick - GetTickCount;
    end;
  finally
    CloseHandle(Event);
  end;
  {$R+}
end;

Manchmal bekomme ich jedoch eine Exception bei Application.ProcessMessages
in der User32.dll DispatchMessageA Zugriffsverletzung bei Adresse 000000. Lesen von Adresse 000000.

Hat dies jemand schon mal gehabt, oder was könnte das sein ?

Gruß
Gargano