GetTickCount Problem

[shmia]

Delphi-Quellcode:

start := GetTickCount; 
...

var
  msecs : integer;
begin  
  msecs := GetTickCount-start;
  ProgressBar1.Position := (msecs div 1000) * 10;