今天又遇到了问题解决不了，创建层!!!

下面的代码失败了，但同等的delphi和Vb是成功的。先放在这，以后解决

bcb代码如下：   
   CMapXLayerInfoDisp layerInfo;

   CMapXFieldsDisp fields;

   layerInfo.Bind(StringToOleStr("MapX.LayerInfo.5"));

   if(!layerInfo.IsBound()){

       ShowMessage("绑定MapX.LayerInfo.5失败!!" );

       return;

   }

   fields.Bind(StringToOleStr("MapX.Fields.5"));

   if(!fields.IsBound()){

       ShowMessage("绑定MapX.Fields.5失败!!" );

       layerInfo.Unbind(true);

       return;

   }

   fields.AddStringField(Variant("ID"), Variant(12), EmptyParam);

   fields.AddStringField(Variant("Name"), Variant(50), EmptyParam);

   fields.AddNumericField(Variant("Deptch"), Variant(12), Variant(2), EmptyParam);

   fields.AddIntegerField(Variant("Length"), EmptyParam);

   layerInfo.Type =  miLayerInfoTypeNewTable;

   layerInfo.AddParameter(WideString("FileSpec"), Variant(WideString("c://test.tab")));

   layerInfo.AddParameter(WideString("NAME"), Variant(WideString("sds")));

   layerInfo.AddParameter(WideString("Fields"), Variant((CMapXFields *)fields));

   CMapXLayer *newLayer = m_map->Layers->Add(Variant((CMapXLayerInfo *)layerInfo), EmptyParam);

   if(newLayer == NULL){

      ShowMessage("创建MapX.Layer失败!!");

      layerInfo.Unbind(true);

      fields.Unbind(true);

      return;

   }
Dephi代码如下(能正常运行)
  Lyr:CMapXLayer;

  LayerInfo:CMapXLayerInfo;

  Flds:CMapXFields;

  FileSpec: String;

begin

  LayerInfo :=CoLayerInfo.Create();

  Flds := CoFields.Create();

  Flds.AddStringField('ID', 12, EmptyParam);

  Flds.AddStringField( 'Name', 50, EmptyParam);

  Flds.AddNumericField( 'Deptch', 12, 2, EmptyParam);

  Flds.AddIntegerField( 'Length', EmptyParam);

  LayerInfo.Type_ := miLayerInfoTypeNewTable;

  LayerInfo.AddParameter( 'FileSpec', 'c:/test.tab');

  LayerInfo.AddParameter( 'NAME', 'hello');

  LayerInfo.AddParameter( 'Fields', Flds);

  Lyr := Map1.Layers.Add(LayerInfo, EmptyParam);

  if(Lyr = nil) then

  begin

        ShowMessage('错误');

  end;