有没有办法在delphi中通过名称实例化一个类？

uses
  System.Rtti;

type
  TMyClass = class
  public
    procedure HelloWorld;
  end;

procedure TMyClass.HelloWorld;
begin
  WriteLn('Hello, World!');
end;

var
  MyClassInstance: TMyClass;
  Context: TRttiContext;
  MyClassType: TRttiInstanceType;
  MyClassMethod: TRttiMethod;
begin
  MyClassType := Context.GetType(TMyClass) as TRttiInstanceType;
  MyClassInstance := MyClassType.GetMethod('Create').Invoke(MyClassType.AsInstance.MetaclassType, []).AsObject as TMyClass;

  MyClassMethod := Context.GetType(TMyClass).GetMethod('HelloWorld');
  MyClassMethod.Invoke(MyClassInstance, []);
end.