Delay-Procedure in DLL auslagen

[Helmi]

Hallo,

da ich die Delay-Procedure für ein Projekt in zwei Applicationen brauche, hab ich mir gedacht, ich lagere die Delay-Procedure in eine DLL aus. (war für mich auch ein Anfang in der DLL-Programmierung)

Nur hab ich Bedenken, ob jetzt die Delay-Procedure nichts mehr bringt, also genau so arbeitet wie "sleep".

(Nochmals zur Erinnerung die Delay-Procedure

Delphi-Quellcode:

procedure Delay(Milliseconds: Integer); stdcall;
var
  Tick: DWord;
  Event: THandle;

begin
  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;
end;

Wer kann mir meine Zweifel nehmen?