Delay in Delphi

[Matze]

Delphi-Quellcode:

procedure TForm1.delay(ms:TTime);
var startzeit:TTime;
begin
  startzeit:=GetTickCount;
  while(getTickCount-startzeit)<ms do
    Application.ProcessMessages;
end;

[Edit]Delphi-Tags vergessen [/Edit]