Cardinal anstatt Integer?

[omata]

Wenn man ein eigenes Delay realisieren möchte geht das zum Beispiel so...

Delphi-Quellcode:

procedure Delay(ATime:Integer);
var Start : integer;
begin
  Start := GetTickCount;
  repeat
    Application.ProcessMessages;
  until abs(GetTickCount) - Start > ATime;
end;

Aber warum eine negative Pause zulassen?

Also besser...

Delphi-Quellcode:

procedure Delay(ATime:Cardinal);
var Start : Cardinal;
begin
  Start := GetTickCount;
  repeat
    Application.ProcessMessages;
  until GetTickCount - Start > ATime;
end;

Gruss
Thorsten