Prüfen ob Form bereits existiert.

[paritycheck]

Ich habe irgendwie die Vermutung dass die Variable frm_Email eine lokale Variable in irgend einer Funktion ist. Wenn diese Funktion abgearbeitet ist wird die lokale Variablen verworfen und dein frm_Email hinfällig. Beim nächsten Aufruf der Funktion prüfst Du also gegen eine "neue" leere Variable.... versuch mal frm_Email global zu definieren.

[mkinzler]

Zitat:

Ich habe irgendwie die Vermutung dass die Variable frm_Email eine lokale Variable in irgend einer Funktion ist.

Ist sie, wie man im 1. Beitrag sehen kann.

[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;