delphi – 这个设计模式的名称是什么？

>创建类的对象
>在该对象上调用一些“运行”或“执行”方法
>摧毁物体

这会给调用代码增加一些开销,例如：

var
  Foo: TFoo;
begin
  Foo := TFoo.Create(...);
  try
    Foo.Run(...);
  finally
    Foo.Free;
  end;
end;

这可以写得更短：

begin
  TFoo.Run(...);
end;

在这种情况下,包含TFoo类的单元将如下所示：

type
  TFoo = class
  private
    FBar: TBar;
    procedure InternalRun;
  public
    class procedure Run(ABar: TBar); static;
  end;

class procedure TFoo.Run(ABar: TBar);
var
  Foo: TFoo;
begin
  Foo := TFoo.Create;
  try
    Foo.FBar := ABar;
    Foo.InternalRun;
  finally
    Foo.Free;
  end;
end;

开销从调用代码移动到TFoo类.

这种设计模式的名称是什么？