Problem bei weiterleiten nach Unit 2

[DutchmanTom]

Mit der lieben Hilfe des Chefs der Firma wo ich Praktikum mache, ist jetzt endlich eine funktionierende Variant bei herrausgekommen

Quellcode in der Hauptform:

Delphi-Quellcode:

procedure TForm1.BtnHinzuClick(Sender: TObject);
var aForm: TForm2;
begin
  try
    aForm := TForm2.Create(self);
    if aForm.showmodal=mrOK then
      begin
       AdresseAnlegen(aForm.Vorname, aForm.Nachname, aForm.Job, aForm.Strasse,
                      aForm.Ort, aForm.Telefon);
      end;
  finally
    aForm.Free;
  end;
end;

Dazugehöhriger Code der Nebenform:

Delphi-Quellcode:

procedure TForm2.BtnHinzuClick(Sender: TObject);
begin
  if MessageDlg('Soll die Adresskarte gespeichert werden?',
                mtConfirmation,[mbYes,mbNo], 0 ) = mrYes
    then
     begin
      vorname := EdVorname.Text;
      Nachname := EdNachname.Text;
      Job := EdJob.Text;
      Strasse := EdStrasse.Text;
      Ort := EdOrt.Text;
      Telefon := EdTelefon.Text;
      self.ModalResult := mrOK;
     end
    else
     self.ModalResult := mrCancel;
end;

An dieser Stelle meine Dank an Phönix und Alleinherrscher

gruß
DutchmanTom