GetTickCount Problem

[Nuclear-Ping]

Delphi-Quellcode:

var
  StartTicks,
  CurTicks: LongInt;
begin
  StartTicks := GetTickCount;
  repeat
    CurTicks := GetTickCount;
    if (CurTicks - StartTicks) >= 1000 then
      begin
        StartTicks := GetTickCount; // <- reset
        ShowMessage ('1000ms vorbei');
      end;
  until FALSE;
end;