[CHECHE81]

Saludos¡¡¡
Pues con la novedad que estoy intentando cargar unos datos de unos .dbf pero con la cuestión que algunos tienen 870 columnas algunas menos pero la mayoria anda en ese rango, entonces lo ligue a un cxgrid(v 6.54) donde trae un método para exporta a excel llamado ExportGridToEXCEL pero ho sorpresa solo me trae 245 columnas, tengo el siguiente código:

Código Delphi [-]
  // Establece las propiedades del cuadro de dialogo.
   SaveDialog.Filter := 'Hoja de Cálculo Excel (*.xls) | *.xls';
   SaveDialog.Title := ' Salvar listado como Hoja de Cálculo Excel';
   // Si el usuario digitó Ok en el cuadro de dialogo.
   if SaveDialog.Execute then
   begin
     // Salva la información en un archivo de Excell.
     ExportGridToEXCEL(SaveDialog.FileName,cxGrid1, True,True,True,'xls');
     MessageDlg('La información fué salvada en ' + SaveDialog.FileName, mtInformation, [mbOk], 0);
   end;

No se si me falte algún parametro o establecer algún valor o si ese es su limite, pensando en eso me puse a la tarea de investigar como podria crear los campos del Table de datos del .dbf a un ClientDataSet ligado a una tabla que solo tiene el campo Id, encontre información en un link de ROMAN (http://www.clubdelphi.com/foros/showthread.php?t=5033)pero no se si es correcto como lo estoy utilizando, porque no me crea los campos fisicos por asi llamarlos en mi tabla de la bd de MySQL:

Código Delphi [-]
  dmConexion.cdsBach1i10.Open;
   BACH1I10.Open;
    numcol:=BACH1I10.FieldCount;
   showmessage(inttostr(numcol));
   for I := 0 to numcol-1 do
   begin
     FieldDefSource := BACH1I10.FieldDefs[i];  //campos de mi table del .dbf
     FieldDefDest := dmConexion.cdsBach1i10.FieldDefs.AddFieldDef;  //CDS donde quiero crear los capos "fisicos"
     FieldDefDest.Assign(FieldDefSource);
   end;   showmessage('Campos copiados con éxito.');

Cualquier dato se los agradesco, gracias por su tiempo...