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