Form freigeben <> Memory Leak

[shmia]

So geht's:

Delphi-Quellcode:

Procedure TForm1.ButtonClick(Sender: TObject); 
var Form2: TTestForm; 
Begin 
  Form2 := TTestForm.Create(nil); // nil als Owner, da wir selber freigeben
  try 
    Form2.Show; 
    ... 
    Form2.StartProcedure; 
    Form2.Hide;
    Form2.Showmodal;  // nicht unbedingt elegant, aber funktioniert
    ... 
  finally 
    Form2.Free;  // FreeAndNil ist hier unnötig, da Form2 sowieso "out of Scope" gerät
  end; 
end