hier eine gute delay-proc..
Delphi-Quellcode:
procedure delay(ms:Integer);
var
Start:real;
begin
Start := GetTickCount;
repeat
Application.ProcessMessages;
until GetTickCount-Start > ms;
end;{proc...}
herzliche grüsse, zopf
[edit=Luckie]Delphi-Tags gestezt. Bitte beim nächsten mal selber machen. Danke. Mfg, Luckie[/edit]