关于在BCB中CreateOleObject的问题！急！(200分)

var mKey:string;
begin
rm:=CreateOleObject('111.222');
rm.KeyID :=cKeyID;//String型
rm.Seed :=cKeySeed;//String型
mKey:=rm.GenerateKey;
showmessage(mKey);
end;
上面是delphi中的一段代码，我想把他移植到bcb上，
Variant rm = Variant::CreateObject("111.222");
rm.OlePropertySet("KeyID",(String)mKeyID);//这一行出错
rm.OlePropertySet("Seed",(String)mSeed);
mKey=rm.OleFunction("GenerateKey");
已经在头上加了，#include <utilcls.h>和#include <ComObj.hpp>
要不编译都不会通过不是！
现在的问题是一直在加注释的这一行报错，说类型不匹配，我已经试过，
强制转换成Variant，还是一样！
也试过rm=Variant::CreateObject("111.222");结果都一样！
现在我该怎么办呢！
不要告诉我不要用BCB哦！
我用的是Delphi6和BCB6

非常的奇怪，有一个自己解决的问题，bcb真的是比delphi差多了
用Exec方法就可以了！