Очистка памяти в процедуре

procedure ttt(tss:tstringlist);
begin
  ....
  tss.free;
end;

function Test: TStrings;

function SearchFile(path:string):TStringList;
var SRec:TSearchRec;
....
   Result:=TStringList.Create;
   Result.Clear;
....
end;
....
var lst:TStringList;
...
lst:=SearchFile(fname+'\*.xls');
...
lst.Free;

function Test: TStrings;
begin
  Result := TStrings.Create;
  try
    ... // вытворяем с Result всякие непотребства
  except
    Result.Free;
    raise;
  end;
end;
 
var
  i: TStrings;
begin
  i := Test;
try
  ... // и вновь непотребства, на этот раз с i, который по факту все то-же Result
finally
  i.Free;
end;

function Test: TButton;

function Test: TStrings;
begin
...
end;
 
...
 
Form.Caption := Test.Text;

function CreateNewClass: TNewClass;
begin
...
  Result := TNewClass.Create;
end;
 
var NewClass: TNewClass;
...
 
begin
NewClass := CreateNewClass;
...
...
// тут работает с NewClass
...
...
// если в конце концов не удаляем NewClass, то гарантированная утечка памяти по адресу, по которому создали экзмепляр
end;

NewClass := ThewClass.Create;

procedure Test(const AllGood: TForm; const Woops: TMyRec);
begin
  Woops.Left := 0; // О боже! Мы пытаемся изменить константу! Куда катится мир!!!
  AllGood.Left := 0; // Хм, пытаемся изменить константу? Ну... А пофиг, и так сойдет...
end;

AllGood := MyNewForm;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
  PMyRec = ^TMyRec;
  TMyRec = record
    X: Integer;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure Test(const F: TForm; const R: PMyRec; const RR: TMyRec);
begin
  F := Form1;     // ERROR
  F.Left := 100;  // OK
  R.X := 100;     // OK
  RR.X := 200;    // ERROR
end;
 
end.

TMyClass=class
  id:integer;
  name:string;
end;

TMyClass=class
  id:integer;
  name:string;
  parent:TMyClass; // указатель на родителя
end;

TMyClass=class
  id:integer;
  name:string;
  children:TMyClassList; // указатель на потомков
end;