Array- Variable in Datei speichern

[cook]

Hallo, folgendes:

Ich will ein zweidimensionales, dynamisches Array

Delphi-Quellcode:

type aRaumposition = array of array of Boolean;
Raumposition: aRaumposition;

in eine Datei speichern. Meine Speicherprozedur sieht folgendermaßen aus

Delphi-Quellcode:

procedure TForm1.Projektspeichern1Click(Sender: TObject);
var wrProjekt: TWriter;
    i: integer;
begin
  RegisterClass(TRaum);
  SaveDialog.DefaultExt:='map';
  SaveDialog.Filter:='Alle Dateien |*.*|Map-Files (*.map)|*.MAP';
  SaveDialog.FilterIndex:= 2;
  if SaveDialog.execute then
  begin
    strFile := TFileStream.Create(SaveDialog.FileName, fmCreate);
    wrProjekt := TWriter.Create(strFile, 2000);
    wrProjekt.WriteString(FRaum.ClassName); // Raumklasse speichern
    FRaum.WriteToFile(wrProjekt);  // Raumdaten speichern
  wrProjekt.destroy; //Writer freigeben
  strFile.destroy; // Stream freigeben
end;
end;

Wie krieg ich jetzt die private Variable Raumposition von TForm1 gespeichert? FRaum ist ja eine Instanz und wird über die Prozedur WriteToFile gespeichert, aber wie funzt das bei Variablen?

Danke für eure Hilfe.