Как правильно задавать аргументы для SetXRecordData?

const TAG_XRECORD_NAME = 'XXX';
var
  Acad: IAcadApplication;
  blockObj: IAcadBlock;
  TablesDictionary: IAcadDictionary;
  XRecord: IAcadXRecord;
  XRecordDataType, XRecordData: OleVariant;
...
  blockObj:= Acad.Application.ActiveDocument.Blocks.Item('1');
  TablesDictionary:= blockObj.GetExtensionDictionary;
  XRecord:= TablesDictionary.AddXRecord(TAG_XRECORD_NAME);
  XRecordDataType:= VarArrayCreate([0, 1], varSmallint);
  XRecordDataType[0]:= 1;
  XRecordDataType[1]:= 1;
  XRecordData:= VarArrayCreate([0, 1], varOleStr);
  XRecordData[0]:= '(10, 10)';
  XRecordData[1]:= '(20, 20)';
  try
    XRecord.SetXRecordData(XRecordDataType, XRecordData);
  except
    raise;
  end;