GetTickCount Problem

[MrMyagi]

Moin allerseits,
und zwar weißt ich nicht,
warum mein GetTickCount Teil im Programm
nicht funktioniert.
Es wird beim einem ButtonClick der aktuelle
GetTickCount-Wert in der integer-Variable "start"
gespeichert und diese wird dann vom aktuellen
GetTickCount-Wert subtrahiert und falls das
Ergebnis = 1000 ms ist, soll die Progressbar
10 Stellen weiter gehen.

Delphi-Quellcode:

.
.
.
start := GetTickCount;
if (GetTickCount-start) = 1000 then
begin
Progressbar1.Position := 10;
end;
.
.
.