在Delphi中,如何从接口类型数据初始化一个TGUID的const数组？

uses
  System.SysUtils,
  System.GUIDs;

type
  IMyInterface = interface
    ['{12345678-9012-3456-7890-123456789012}']
    procedure DoSomething;
  end;

  TMyClass = class(TInterfacedObject, IMyInterface)
    procedure DoSomething;
  end;

var
  MyInterface: IMyInterface;
  InterfaceEntry: IInterfaceEntry;
  GUIDArray: TArray<TGUID>;
begin
  MyInterface := TMyClass.Create;
  InterfaceEntry := GetInterfaceEntry(MyInterface);
  if Assigned(InterfaceEntry) then
  begin
    SetLength(GUIDArray, 1);
    Move(InterfaceEntry.GUID, GUIDArray[0], SizeOf(TGUID));
    // GUIDArray[0] now contains the GUID of the interface
  end;
end;