又是‘Insufficient memory for this operation’

function TMidOperator.GetCDSData(XMLData: string): OleVariant;
var
  TranslationCDS: TClientDataSet;
begin
    TranslationCDS := TClientDataSet.Create(nil);
    try
      TranslationCDS.Active := False;
      TranslationCDS.XMLData := XMLData;//XMLData为xml格式的数据执行这步后报错，如题所示
      result := TranslationCDS.Data;

    finally
      FreeAndNil(TranslationCDS);
    end;
end;请教解决方法。