[QUOTE=Sir Rufo;1104585]
procedure TForm2.OnDestroy( Sender : TObject );
begin
if Form2 = Self then
Form2 := nil;
end;
[/DELPHI]
Delphi-Quellcode:
procedure TForm1.EntferneForm2;
begin
if Assigned( Form2 ) then
Form2.Free;
end;
Und wozu gibt es FreeAndNil?