Prüfen ob Form bereits existiert.

[Sir Rufo]

Jede Form bekommt ja von Haus aus eine globale Variable zugewiesen.
Wenn man die verwendet (man kann aber auch selber noch ein paar einführen) dann kann man diese per OnDestroy auch gleich auf nil setzen:

Delphi-Quellcode:

type
  TFEmail = class( TForm )
  ...
    procedure FormDestroy(Sender: TObject);
  ...
  end;

var
  FEmail : TFEmail;


procedure TFEmail.FormDestroy(Sender: TObject);
begin
  if FEmail = Self then
    FEmail := nil;
end;

Um die Form dann anzuzeigen nimmt man folgende Sequenz:

Delphi-Quellcode:

if not Assigned( FEmail ) then
  FEmail := TFEmail.Create( Application );  // Als Owner Application, dann gibt es garantiert keine Speicherlecks
if not FEmail.Visible then
  FEmail.Show;