Funktion erstellt gibt Objekt zurück, wer räumt auf

[supermuckl]

Delphi-Quellcode:

var 
  SL :TStringList; 
begin 
  try 
    SL := foo(); 
  finally 
    if Assigned(SL) then 
      Freeandnil(SL); 
  end; 
end;