Opciones para copiar registros de una tabla a otra

[pmtzg]

lo volvi a crear distinto y me hace los mismo este es el codigo:

corregido ya funciona este codigo

Código Delphi [-]
procedure TForm2.Button4Click(Sender: TObject);
var
  I,nr: Integer;
begin
query2.DatabaseName := 'Report1';   {es un addalias con el path de files paradox}
query2.SQL.Clear;

{para q me funcionara agregue este a la consulta  (ctlpol) as num_reg }

consult := 'Select distinct (ctlpol) as num_reg, cclie, status, tipo_mov, no_factura, docto, refer, importe, '+
'fecha_apli, fecha_venc, cob, afec_coi, obs_cxccxp, bank_com, strcvevend, num_moned, '+
'tcambio, impmon_ext, cconrefer, fechaelab, usuario, ctlpol, cvefolio ' +
' from BdOld\cuen04 '+
'union '+
'Select  (ctlpol) as num_reg, cclie, status, tipo_mov, no_factura, docto, refer, importe, '+
'fecha_apli, fecha_venc, cob, afec_coi, obs_cxccxp, bank_com, strcvevend, num_moned, '+
'tcambio, impmon_ext, cconrefer, fechaelab, usuario, ctlpol, cvefolio ' +
'from cuen04  order by fecha_apli desc ' ;


query2.SQL.Add(consult);
query2.Active := true;
label1.Caption :='Total Reg.: '+ inttostr(query2.RecordCount);

//query2.First;
table2.DatabaseName := 'Report1';
table2.TableName := 'CONSULTA2';
g1.MinValue := 0;
g1.MaxValue := query2.RecordCount;
SHOWMESSAGE ('NO. REG.: '+inttostr(query2.RecordCount));
 table2.Open;
 //table2.Append;
 //query2.First;
 nr:=query2.RecordCount;  {total de registros en la base} 
 while not query2.Eof do
  begin
      table2.append;
     for I := 0 to query2.fields.Count - 1 do
        begin

          table2.FieldByName('num_reg').AsInteger:=nr;
           table2.Fields[i].Value := query2.Fields[i].Value;
        end;                           {aqui estaba mi error  modifique esto y a la consulta agrege el campo q se incrementa}
          table2.insert;
          query2.Next;
          g1.Progress := query2.RecNo;
           nr:=nr-1;
        

  end;

   table2.Close;
   query2.Close;
   showmessage ('Listo proceso terminado con exito ');

end;

quiza si estoy cometiendo un error y no me doy cuenta