procedure TfMain.TmpConnect(Sender: TObject);
var
  obj,
  my_connection  : variant ;
  tmp_path,
  Server,
  Port,
  Space,
  User,
  Pass,
  ok,
  str,
  str_cnt    : string ;
  connected  : boolean ;
begin
  Server    := 'VERS' ;
  Port      := '1972' ;
  Space     := 'VERS' ;
  User      := '_System' ;
  Pass      := 'SYS' ;
  tmp_path  := 'abc.xml' ;
  str       := 'tmp.int' ;
  my_connection := CreateOleObject('CacheActiveX.Factory') ;
  str_cnt := 'cn_iptcp:' + Server + '[' + Port + ']:' + Space + ':' + User + ':' + Pass ;
  try
    if my_connection.IsConnected then
      my_connection.Disconnect ;
    connected  := my_connection.connect(str_cnt) ;
  except
    begin
      MessageBox(0, PChar('Не удалось соединиться с сервером ' + server),
        PChar('Экспорт'), MB_OK + MB_ICONWARNING) ;
      exit ;
    end ;
  end ;
  obj := my_connection.new('%SYSTEM.OBJ') ;
  ok  := obj.Export(str, tmp_path) ;
end ;

 obj := my_connection.Static('%SYSTEM.OBJ') ;