[MARLON1]

perdon aqui te pongo el codigo que utilizo:

componente utilizo un BDE-query.

con este codigo tambn lo utilo para guardar los registros del archivo .txt y lo hace correctamente.

Código Delphi [-]

//REMOTA
if checkbox2.Checked=true then begin

j:=dbgrid2.DataSource.DataSet.RecordCount;

dbgrid2.DataSource.DataSet.First;

for I := 0 to j - 1 do begin

  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add('insert into seg8(idreg8,ge,dr,md,idm,tm,fe,cn,idt,fec,tob,cvl,nc,nom,lnt,re,pr,cof,imu,ima,uni,idr,sec,ln1,ln2,l  r,b,y,m,vt,ct,vx,nv,gmt,gct,nec,lma,prd,usu,tip)' );
  query1.SQL.Add('values(:idreg8,:ge,:dr,:md,:idm,:tm,:fe,:cn,:idt,:fec,:tob,:cvl,:nc,:nom,:lnt,:re,  r,:cof,:imu,:ima,:uni,:idr,:sec,:ln1,:ln2,:lr,:b,:y,:m,:vt,:ct,:vx,:nv,:gmt,:gct,:nec,:lma,rd,:usu  ,:tip)');
  query1.ParamByName('idreg8').Value:=dbgrid2.DataSource.DataSet.FieldValues['idreg8'];
  query1.ParamByName('ge').Value:=dbgrid2.DataSource.DataSet.FieldValues['ge'];
  query1.ParamByName('dr').Value:=dbgrid2.DataSource.DataSet.FieldValues['dr'];
  query1.ParamByName('md').Value:=dbgrid2.DataSource.DataSet.FieldValues['md'];
  query1.ParamByName('idm').Value:=dbgrid2.DataSource.DataSet.FieldValues['idm'];
  query1.ParamByName('tm').Value:=dbgrid2.DataSource.DataSet.FieldValues['tm'];
  query1.ParamByName('fe').Value:=dbgrid2.DataSource.DataSet.FieldValues['fe'];
  query1.ParamByName('cn').Value:=dbgrid2.DataSource.DataSet.FieldValues['cn'];
  query1.ParamByName('idt').Value:=dbgrid2.DataSource.DataSet.FieldValues['idt'];
  query1.ParamByName('fec').Value:=dbgrid2.DataSource.DataSet.FieldValues['fec'];
  query1.ParamByName('tob').Value:=dbgrid2.DataSource.DataSet.FieldValues['tob'];
  query1.ParamByName('cvl').Value:=dbgrid2.DataSource.DataSet.FieldValues['cvl'];
  query1.ParamByName('nc').Value:=dbgrid2.DataSource.DataSet.FieldValues['nc'];
  query1.ParamByName('nom').Value:=dbgrid2.DataSource.DataSet.FieldValues['nom'];
  query1.ParamByName('lnt').Value:=dbgrid2.DataSource.DataSet.FieldValues['lnt'];
  query1.ParamByName('re').Value:=dbgrid2.DataSource.DataSet.FieldValues['re'];
  query1.ParamByName('pr').Value:=dbgrid2.DataSource.DataSet.FieldValues['pr'];
  query1.ParamByName('cof').Value:=dbgrid2.DataSource.DataSet.FieldValues['cof'];
  query1.ParamByName('imu').Value:=dbgrid2.DataSource.DataSet.FieldValues['imu'];
  query1.ParamByName('ima').Value:=dbgrid2.DataSource.DataSet.FieldValues['ima'];
  query1.ParamByName('uni').Value:=dbgrid2.DataSource.DataSet.FieldValues['uni'];
  query1.ParamByName('idr').Value:=dbgrid2.DataSource.DataSet.FieldValues['idr'];
  query1.ParamByName('sec').Value:=dbgrid2.DataSource.DataSet.FieldValues['sec'];
  query1.ParamByName('ln1').Value:=dbgrid2.DataSource.DataSet.FieldValues['ln1'];
  query1.ParamByName('ln2').Value:=dbgrid2.DataSource.DataSet.FieldValues['ln2'];
  query1.ParamByName('lr').Value:=dbgrid2.DataSource.DataSet.FieldValues['lr'];
  query1.ParamByName('b').Value:=dbgrid2.DataSource.DataSet.FieldValues['b'];
  query1.ParamByName('y').Value:=dbgrid2.DataSource.DataSet.FieldValues['y'];
  query1.ParamByName('m').Value:=dbgrid2.DataSource.DataSet.FieldValues['m'];
  query1.ParamByName('vt').Value:=dbgrid2.DataSource.DataSet.FieldValues['vt'];
  query1.ParamByName('ct').Value:=dbgrid2.DataSource.DataSet.FieldValues['ct'];
  query1.ParamByName('vx').Value:=dbgrid2.DataSource.DataSet.FieldValues['vx'];
  query1.ParamByName('nv').Value:=dbgrid2.DataSource.DataSet.FieldValues['nv'];
  query1.ParamByName('gmt').Value:=dbgrid2.DataSource.DataSet.FieldValues['gmt'];
  query1.ParamByName('gct').Value:=dbgrid2.DataSource.DataSet.FieldValues['gct'];
  query1.ParamByName('nec').Value:=dbgrid2.DataSource.DataSet.FieldValues['nec'];
  query1.ParamByName('lma').Value:=dbgrid2.DataSource.DataSet.FieldValues['lma'];
  query1.ParamByName('prd').Value:=dbgrid2.DataSource.DataSet.FieldValues['prd'];
  query1.ParamByName('usu').Value:=dbgrid2.DataSource.DataSet.FieldValues['usu'];
  query1.ParamByName('tip').Value:=dbgrid2.DataSource.DataSet.FieldValues['tip'];
  query1.ExecSQL;

  dbgrid2.DataSource.DataSet.Next;
end;

SHOWMESSAGE('Importacion Exitosa!');
end;

gracias!