Hallo
Es ist eine ganz schlechte Idee den Destructor Free zu nennen.
Free ist eine Methode von TObject die überprüft ob Self <> nil ist und dann den destructor Destroy aufruft.
Benenne Deinen Destructor um zu:
Interface
destructor Destroy; override;
Implementation
Delphi-Quellcode:
destructor TFlaecheninh.Destroy;
begin
inherited Destroy;
end;
Dein Code ruft sich selber auf in Deinem destructor Free!!!