wow...das funktioniert 100%.
ich verstehe aber nur die hälfte, könntest du evt. dazu ein paar kommentare zu schreiben?
Code:
procedure Delay(msecs:integer);
var
FirstTickCount:longint;
begin
FirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages; {allowing
access to other controls, etc.}
until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;
meins war ja nicht nur ein wenig falsch.
nur ist es nun so, dass immer nur die erste nummer übergeben wird und nicht mehr alle anderen aus dem stringgrid.
kann den fehler nicht finden.