arraynamen in array - auflösen ?

[th_bone]

Hi,

ich will verschiedene arraynamen in einem array zusammenfassen, damit ich
sie in einer funktion leichter universell ansprechen kann

sprich

arrayname[1]:=arrayY // (array of record)
arrayname[2]:=arrayY // (array of record)

ich habe folgendes versucht weiß aber nicht so recht wie ich dann wieder auf die
daten des einzelnen arrays zugreifen kann

ich möchte eignetlich wenn es geht kein mehrdiemensionales array verwenden da die
length-größen der inhalte sehr unterschiedlich sind

Delphi-Quellcode:

type
  Tdaten = record
              test1   : single;
              test2   : single;
           end;
//...
var

  Rohdaten: array of TDaten;
  Datenarray: array[1..3] of ^Tdaten;
//...

  Datenarray[1]:=@Rohdaten;

//...
 
  // hier kann ich nicht mehr auf test1 auflösen
  for i:=0 to 10 do showmessage(floattostr(datenarray[1]^[i].test1));

ist mein weg überhaupt machbar ?

Danke für die Hilfe

Ralf