Datenaustausch zwischen Main- und Einstellungs-Form

[hboy]

ich mache es so: das unterformular bekommt einen Pointer auf einen Datensatz im Hauptformular.
der typ wird am besten in einer separaten unit deklariert.

extra unit:

Delphi-Quellcode:

[...]

type TEigenertyp = record
  s1,s2: string[255];
  i,j,k: integer;
  r: real;
end;

type PEigenerTyp = ^TEigenerTyp;

[...]

Hauptformular:

Delphi-Quellcode:

uses extraunit;


...
var
  x: TEigenerTyp;
  
...

Aufruf des unterformulars:

Delphi-Quellcode:

procedure TForm1.Button1Click(sender: TObject);
begin
  unterformular.anzeigen(@x);
end;

und im unterformular:

Delphi-Quellcode:

type TForm2 = class(TForm)
  [...]
  public
    remote: PEigenerTyp;
    procedure anzeigen(uebergeben: PEigenerTyp);
end;

[...]

implementation

[...]
  procedure TForm2.anzeigen(uebergeben: PEigenerTyp);
  begin
    remote := uebergeben;
    self.show;
  end;

  procedure TForm2.abfragebuttonClick(Sender:TObject);
  begin
  // ändern
    remote^.s1 := prompt(...);
  end;

Edit: verdammt warum kann ich nie was posten ohne danach fehler zu sehen... uff so jetzt::
Edit: VERDAMMT. jetzt aber