Wait(Time)?

[Teddyman]

Hallo,
habe folgende Wait procedure benutzt:

Delphi-Quellcode:

procedure Wait(time:word);
var start: integer;
begin
 start := GetTickCount;
 while GetTickCount - start <= time do
 Application.ProcessMessages;
end;

Dieses klappt schon, aber gibt es denn was vergleichbares, besseres?

Danke.

[edit=sakura] [delphi]-Tags Mfg, sakura[/edit]