Kommunikation zwischen Forms problem

[Sir Rufo]

Ich mag das TPersistent.Assign , dann reduziert sich der Code auf

Delphi-Quellcode:

procedure TMainForm.Button1Click( Sender: TObject );
var
  lSettingDialog: TForm;
begin
  lSettingDialog := TSetupForm.Create( nil );
  try
    // Daten an die Form übergeben
    lSettingDialog.Assign( FSettings );
    // Form als Dialog aufrufen
    if lSettingDialog.ShowModal = mrOk
    then
      // Daten von der Form lesen
      FSettings.Assign( lSettingDialog );
  finally
    lSettingDialog.Free;
  end;
end;

Kompletter Source und EXE im Anhang