如何在with块中获取对象引用？

Question

在with块中，我需要将与with语句一起使用的对象作为函数参数传递。

with TMyObject.Create do
begin
  //...
  MyFunction( (* here I have to pass the created object *) );
  //...
end;

显然可以实现同样的目标：

var
  MyObj : TMyObject;
begin
  MyObj := TMyObject.Create;
  //...
  with(MyObj) do
  begin
     //...
     MyFunction(MyObj);
  end;
  //...
end;

...但我知道是否有一种简化代码并获取引用的方法，而不会声明MyObj变量。