Objekte freigeben

[jfheins]

Schon - aber Free testet ungefähr so:

Delphi-Quellcode:

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