求助：将几句Delphi代码翻译为BCB代码。

[starsite]

TXXXX = class(TInterfacedObject, IOleObject, IViewObject)
private
// IOleObject
function SetClientSite(const clientSite: IOleClientSite): HResult; stdcall;
...

// IViewObject
...
end;

这样的Delphi类如何翻译为BCB的代码？
注：IOleObject, IViewObject均为COM接口。

[ccrun.com]

#include <comdef.h>

class TXXXX: public TInterfacedObject, IOleObject, IViewObject
{
private:
    // IOleObject
    HRESULT __stdcall SetClientSite(const IOleClientSite *clientSite);
    ...
    // IViewObject
    ...
};

[stayor]

Delphi源码可以在BCB中直接编译。