bei Laden aus Datei werden Create- Parameter verlangt

[cook]

Guten Abend alle zusammen...
Ich hab folgendes Problem:
Ich habe in einer Datei verschiedene Daten einer Maschine gespeichert (mit eigener Klasse TMaschine) und will diese dann wieder auslesen.
Jedoch wenn ich eine Instanz einer Maschine mit lMaschine := MaschinenClass.Create erzeugen will sagt er mir: nicht genügend wirkliche Parameter.
D.h. ja normalerweise das ich diese dem Constructor Create übergeben muss, also:
...Create(Breite,Laenge,...);
Jedoch soll er das ja aus der Datei auslesen und ich hab auch ein Beispielprogramm bei dem das so klappt. Dazu schreib ich erstmal fix den Quelltext

Delphi-Quellcode:

procedure TForm1.Projektladen1Click(Sender: TObject);
var rdProjekt : TReader;
    maschinenAnzahl ,i : Integer;
    RaumClass : TRaumRef;
    MaschinenClass : TMaschineRef;
    lRaum : TRaum;
    lMaschine : TMaschine;

begin
  lbMaschinen.clear; // aktuelle Maschinen löschen
  OpenDialog.Filter:='Alle Dateien |*.*|Map-Files (*.map)|*.MAP';
  OpenDialog.FilterIndex:= 2;
  if OpenDialog.Execute then
  begin
   for i:= 0 to 19 do
     aMaschine[i].free;

strFile := TFileStream.Create(Opendialog.filename,fmOpenRead);
rdProjekt := TReader.Create(strFile,2000);
RaumClass := TRaumRef(findclass(rdProjekt.ReadString));
lRaum := RaumClass.Create;
lRaum.LoadFromFile(rdProjekt);
maschinenAnzahl := rdProjekt.ReadInteger;
for i:= 0 to maschinenAnzahl-1 do
begin
  MaschinenClass := TMaschineRef(findclass(rdProjekt.readString));
  lMaschine :=  MaschinenClass.Create;
  lMaschine.LoadFromFile(rdProjekt);
  aMaschine[i] := lMaschine ;
  lbMaschinen.items.Add(aMaschine[i].Bezeichnung);
end;
rdProjekt.destroy;
strFile.destroy;

end;
end;

Jedoch lädt er mir nichts in lRaum bzw. lMaschine wenn ich vorher nicht die Instanz erzeuge. Aber das kann er ja nur mit den Daten die er mit LoadFromFile bekommt! TEUFELSKREIS???

mfg cook