Another "MacGyver" moment

Or, "More fun with Generics and Anonymous methods".

I'll just leave it up to you whether or not these utility functions are useful, but here they are:

type
  Obj = class
    class procedure Lock(O: TObject; Proc: TProc); static;
    class procedure Using<T: class>(O: T; Proc: TProc<T>); static;
  end;

class procedure Obj.Lock(O: TObject; Proc: TProc);
begin
  TMonitor.Enter(O);
  try
    Proc();
  finally
    TMonitor.Exit(O);
  end;
end;

class procedure Obj.Using<T>(O: T; Proc: TProc<T>);
begin
  try
    Proc(O);
  finally
    O.Free;
  end;
end;

While very contrived, here's how you could use Obj.Using():

procedure TForm1.Button1Click(Sender: TObject);
begin
  Obj.Using<TStringList>(TStringList.Create, procedure (List: TStringList)
    begin
      List.Add('One');
      List.Add('Two');
      List.Add('Three');
      List.Add('Four');
      ListBox1.Items := List;
    end);
end;

And here's how you could use Obj.Lock():

procedure TMyObject.Process;
begin
  Obj.Lock(Self, procedure
    begin
      //code executing within critical section
    end);
end;