Wait und timer

[runger]

Hallo,
warum funktioniert diese Procedure nicht, wenn sie in einer Timerroutine setht?

Delphi-Quellcode:

procedure Wait(time:word); 
var start: integer; 
begin 
start := GetTickCount; 
while GetTickCount - start <= time do 
Application.ProcessMessages; 
end;

Rainer