TForm sauber schleißen

[Sir Rufo]

Wozu es gut sein soll weiß ich zwar nicht, aber so geht es:

Delphi-Quellcode:

type
  TFormIndex = class( TForm )
  ...
  public
    destructor Destroy; override;
  end;

...

destructor TFormIndex.Destroy;
begin
  if FormIndex = Self then
    FormIndex := nil;
  inherited;
end;

BTW: Wir erinnern uns, globale Variablen sind doof und sollten idR vermieden werden, auch wenn Delphi das mit seinem RAD Ansatz vormacht und damit einen quasi Standard vorgaukeln möchte.