Problem mit Records in Class bei Abfrage der Class

[Helmi]

Hallo,

ich hab eine Liste vom Typ TObjectList in der ein paar Classen vom gleichen Typ gespeichert werden.

Die Class TStateClass schaut so aus:

Delphi-Quellcode:

  TStateHButton = record
    Name              : String;
    Bitmap            : String;
    Text              : String;
    ID                : String;
    Kind              : Byte;
    Length            : Byte;
    Font              : String;
    Active            : Boolean;
  end;

  TStateVButton = record
    Bitmap            : String;
    Active            : Boolean;
  end;

  TStateClass = class
    Name              : String;
    Mask              : String;
    Previous          : String;
    Calc              : String;
    Section           : Byte;
    Horz_Buttons      : array of TStateHButton;
    Vert_Buttons      : array of TStateVButton;
  end;

Wie man sieht besteht sie unter anderem auch aus 2 dynamischen Arrays.

In einer Procedure wird die Class erstellt (TStateClass.Create), beschrieben,
die Länge der dynamischen Arrays gesetzt und Diese ebenfalls beschrieben.

Alles soweit kein Problem.

In einer anderen Procedure wird die TObjectlist durchgearbeitet und
die einzelnen Class (TStateClass) ausgelesen und verarbeitet.
Und da hab ich ein Problem.
Ich kann zwar beim Auslesen der Class problemlos auf den Inhalt der Variablen
der Class zugreifen (wie z. B. Name, Mask, Previous,...)
aber wenn ich auf die Variablen der dynamischen Zugreife, dann sind diese immer
leer (Bitmap = '' und Active = false), obwohl ich sicher bin, dass diese
beschrieben wurden.

Ich hab den Verdacht, dass bei meiner Abspeicherung in die TObjectlist ein
Fehler passiert und der Inhalt der dynamischen Arrays nicht mitgespeichert wird.

Was mach ich falsch, bzw. wie kann ich auf den Inhalt der dynamischen Arrays
zugreifen?