GetTickCount Problem

[Noobinator]

Probiers mal so

Delphi-Quellcode:

var start:Dword;
begin
start := gettickcount; // Startzeit merken
while true do // zum test mal ne Endlosschleife
  begin
     if gettickcount - start >= 1000 then //1 Sekunde abwarten
       begin
         Progressbar1.StepBy(10); // um 10 weitergehen
         start := gettickcount; // neue Zeit merken
       end;
  end;