Komplettes Formular speichern/laden

[Cind12]

Hi,

danke für die schnelle Antwort!

Ich habe mir etwas ähnliches bereits gedacht, komischerweise bekomme ich die Fehlermeldung auch dann, wenn ich lokal für die Ladeprozedur ein neues Formular deklariere und dieses direkt aus dem Stream erschaffe:

Delphi-Quellcode:

procedure TForm1.Laden1Click(Sender: TObject);
var Stream : TFileStream; Form_neu : TForm1;
begin
  OpenDialog1 := TOpenDialog.Create(self);
  if OpenDialog1.Execute then
  begin
    if not FileExists(OpenDialog1.Filename) then exit;
    Stream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
    try
      Stream.Position := 0;
      Form_neu := TForm1.Create(Stream.ReadComponent(Form1) as TForm1);
    finally
      Stream.Free;
    end;
  end;
end;

Wieder bricht es mit der Fehlermeldung "A Component named [name] already exists" ab. Ich bekomme die Daten also in gar kein Formular des Typs TForm1 geladen.

mit freundlichen Grüßen
Cind12