关于ClientDataSet,midas报错的问题---急啊,急啊

我的程序(ADO+ClientDataSet+ACCESS200)在有delphi环境的情况下一切正常.但是在没有delphi环境的机器里就报错"ACCESS violation at adderss 4DAEDCB2 in module "midas.dll".Read of address C3E92A04. "我把midas.dll拷到system32并注册过的(否则程序无法运行),经查找报错是在下面这段代码出问题的.
   跪求高手帮助~~~~~~~~~~~,急啊~~~~~~~~
//把文件流转换成xmlData包形式
function GetVarData(wideString: string): wideString;
var
  TmpCds: TClientDataSet;
begin
  TmpCds := TClientDataSet.Create(nil);
  Result := '';
  try
    with TmpCds do begin
      with FieldDefs.AddFieldDef do begin
        DataType := ftblob;
        Name := 'Blob';
      end;      CreateDataSet;
      TmpCds.Append;
      TmpCds.Fields[0].Value := S;
      Result := TmpCds.XMLData;
    end;
  finally
    TmpCds.Free;
  end;
end;