PS: Timer/GetTickCount haben derzeit eine durchschnittliche Taktfrequenz von 16ms.
Und je nach Systemauslastung kann der auch ganz schön verzögert werden, da der Timer über Nachrichten mit niedriger Priorität arbeitet.
oder
Delphi-Quellcode:
//hier jetzt das Array füllen
if myzahler >= Length(myarray) then
SetLength(myarray, myzahler + 1000);
myarray[myzahler]:= mydaten;
inc(myzahler);