Tabellen bzw. Arraywerte verschieben...

[DataNess]

Hallo,

ich habe ein Array und eine Tabelle die immer länger werden (Sammeln von Messwerten).
Und nun möchte ich immer die obersten Werte (1.Zeile der Tabelle und des Arrays) löschen.
Gibt es da einen schnelleren bzw. elleganteren Weg als eine Schleife die in die 1.Zeile die Werte der 2.Zeile schreibt ?

z.B.

Delphi-Quellcode:

for n:=1 to AnzData-1 do
begin
  DataArray[n]:=DataArray[n+1];
  Tabelle.Rows[n]:=Tabelle.Rows[n+1];
end;

Danke im Vorraus...