Set cacheObj = CreateObject("CacheActiveX.Factory")
cacheObj.Connect("cn_iptcp:127.0.0.1[1972]:SAMPLES:_SYSTEM:SYS")

Set obj = cacheObj.Static("%SYSTEM.OBJ")
WScript.Echo obj.Version() & vbNewLine & obj.Load("c:\tmp.xml","cf-d")

procedure Tfm.Button1Click(Sender: TObject);
var cacheObj,obj:Variant;
begin
  cacheObj:=CreateOleObject('CacheActiveX.Factory');
  cacheObj.Connect('cn_iptcp:127.0.0.1[1972]:SAMPLES:_SYSTEM:SYS');

  obj:=cacheObj.Static('%SYSTEM.OBJ');
  ShowMessage(obj.Version+#13#10+obj.Load('c:\tmp.xml','cf-d'));
end;