Werte aus einer Form sichern und zurückschreiben

[Gravitar]

Zitat von Phoenix:

...Du kannst also alles was von TComponent abgeleitet ist serialisieren. Such mal nach ReadComponent und WriteComponent hier...

Hi Phoenix,

ich habe das jetzt mal mit Read-/WriteComponent versucht. Hier die Procedure bei Aufruf des Formulars:

Delphi-Quellcode:

procedure TFrmTurnierOptionen.FormActivate(Sender: TObject);
begin
  MStream := TMemoryStream.Create;
  MStream.WriteComponent(Self);
end;

Und hier die Procedure bei drücken des <Abbrechen>-Buttons:

Delphi-Quellcode:

procedure TFrmTurnierOptionen.BtTurnierEinstellungenAbbrechenClick(
  Sender: TObject);
begin
  mstream.position := 0;
  mstream.ReadComponent(Self);
  mstream.Free;
  FrmTurnierOptionen.Close;
end;

In dieser Procedure tritt eine Exception "A component named Label7 already exists".

Was mache ich hier falsch?

Gruß, Andreas