Probleme mit TObject.Free

[LoRd-MuldeR]

Delphi-Quellcode:

unit System

[...]

procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;