{ 1 }
procedure Foo();
begin
  with TBar.Create() do
    try
      DoSomething();
    finally
      Free();
    end;
end;

{ 2 }
procedure Foo();
var
  Bar: TBar;
begin
  Bar := TBar.Create();
  try
    Bar.DoSomething();
  finally
    Bar.Free();
  end;
end;