delphi 转换为 BCB 的问题

各位大侠，下面的几句delphi 代码怎么改为ＢＣＢ的。

(1)
type
IXMLDOMImplementation = interface;
IXMLDOMImplementationDisp = dispinterface;


(2)
IXMLDOMNamedNodeMapDisp = dispinterface
['{2933BF83-7B36-11D2-B20E-00C04F983E60}']
function removeNamedItem(const name: WideString): IXMLDOMNode; dispid 85;
property item[index: Integer]: IXMLDOMNode readonly dispid 0; default;
property Value:Integer WriteOnly Write fValue Stored True nodefault;
property MyImplClass: TMyImplClass read FMyImplClass implements IMyInterface;
//其中 typeIMyInterface = interface
end;

(3)
IXMLDOMNode = interface(IDispatch)
['{2933BF80-7B36-11D2-B20E-00C04F983E60}']
//....
end;
IID_IXMLDOMImplementation: TGUID = '{2933BF8F-7B36-11D2-B20E-00C04F983E60}';

(4)
function MessageBox(HWnd: Integer; Text, Caption: PChar; Flags: Integer): Integer; external 'user32.dll'; name 'MessageBoxA'; message ID_REFRESH ;abstract; Assembler; cdecl;Dynamic;Export; Far;Forward; Near; overload; override; Pascal; Register; Reintroduce; Safecall; stdcall; varargs; virtual;

//functiong后面是没有这么多修饰词的，还有一些修饰词是不相容的，都是我加上去的.

(5)
package DATAX;
　requires rtl, clx;
　contains Db, DBLocal, DBXpress;
end.

(6)
Initialization
　ActiveX.OleInitialize(nil);
Finalization
ActiveX.OleUninitialize;

(7)
var
　PFile:File Of TPerson; // 其中type TPerson=record

(8)
threadvar S: AnsiString;
S := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

(9)
Type
　TCol=(cA,cB,cC);
　TCols=set of TCol;
??? 这TCols能不能增加、减少元素，如果能对应C++它应该是什么？

[解决办法]
IXMLDOMImplementation 和 IXMLDOMNamedNodeMapDisp 这些在Windows SDK中已经定义,在C++Builder相应的头文件后就可以直接使用.