如何在Delphi中处理两个不同单元之间的COM回调

type
  ICallbackInterface = interface(IUnknown)
    ['{XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX}']
    procedure CallbackMethod(const Value: Integer); stdcall;
  end;

type
  TCallbackClass = class(TInterfacedObject, ICallbackInterface)
    procedure CallbackMethod(const Value: Integer); stdcall;
  end;

procedure TCallbackClass.CallbackMethod(const Value: Integer);
begin
  // 处理回调方法
end;

var
  CallbackObj: ICallbackInterface;
  CallbackClass: TCallbackClass;
begin
  CallbackClass := TCallbackClass.Create;
  CallbackObj := CallbackClass as ICallbackInterface;

  // 注册回调对象
  // ...
end;

procedure CallCallbackMethod(CallbackObj: ICallbackInterface);
begin
  // 调用回调方法
  CallbackObj.CallbackMethod(123);
end;