delphi – 为什么使用过程来创建优先于函数的对象？

无论如何，我的问题是关于将对象创建到函数或过程的责任的最佳做法，而不会导致内存泄漏。好像这样：

procedure FillObject(MyObject: TMyObject; SomeParam: Integer);
begin
  //Database operations to fill object
end;

procedure CallUsingProcedure();
var
  MyObject: TMyObject;
begin
  MyObject = TMyObject.Create();
  try
    FillObject(MyObject,1);
    //use object
  finally
    MyObject.Free();
  end;
end;

优于此：

function CreateMyObject(DBID: Integer): TMyObject;
begin
  Result := TMyObject.Create();
  try
    //Database operations to fill object
  except on E: Exception do
    begin
      Result.Free();
      raise;
    end;
  end;
end;

procedure CallUsingFunction();
var
  MyObject: TMyObject;
begin
  MyObject = CreateMyObject(1);
  try
    //use object
  finally
    MyObject.Free();
  end;
end;

为什么？

我对Delphi来说比较新，以前在Java和PHP以及C中工作最多，但是在较小程度上。直观地，我倾向于功能方法，因为：

>它将对象创建代码封装在函数中，而不是每当我想使用该过程时分别创建对象。
我不喜欢改变参数的方法。它通常没有记录，可以使跟踪错误更加困难。
>暧昧，但诚然，这只是“闻起来”对我不好。

我不是说我是对的我只是想了解社区为什么选择这种方法，如果有更好的理由让我改变。

编辑：
参考@ E-Rock的评论是给我的(Eric G)。我改变了我的显示名称。