Falsch:
destructor Free;
Richtig:
destructor Destroy;override;
Niemals das Override beim Destructor vergessen!!!
Niemals vergessen im Destructor inherited aufzurufen!!!
Delphi-Quellcode:
destructor TTestKlasse1.Destroy
begin
list.Free;
inherited; // immer letzte Anweisung im Destructor
end;