[igamerpc]

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  archivo: String;
  cod1  : Cardinal;
  nom: string;
begin
While Not MOD.Tabla2.Eof do
      Begin
        cod1:=MOD.Tabla2.fieldbyName('CODIGO').Value;
        nom:=MOD.Tabla2.fieldbyName('NOMBRE').Value;

        Insertar_Registro_Tabla_1('archivo', cod1, nom, Sender);
        CFG.MOD.Tabla2.Next;
   end;
memo1.lines.add('Número de registros insertados: '+ IntToStr(MOD.Tabla2.RecordCount));  //Me sale numero filas y no numero insertados.
end;


procedure TForm1.Insertar_Registro_Tabla_1(NTabla:String; cod1:cardinal; nom:string; Sender: TObject);
begin
   If MOD.Conexion.Connected =False Then
       MOD.Conexion.Connected:=True;

    MOD.Tabla1.TableName:=NTabla;
    MOD.Tabla1.Active:=True;

    MOD.MyCommand1.SQL.Clear;
    MOD.MyCommand1.sql.Add('INSERT INTO '+NTabla+'(CODIGO,NOMBRE) VALUES(:Codigo,:Nombre)');
    MOD.MyCommand1.ParamByName('CODIGO').Value:=cod1;
    MOD.MyCommand1.ParamByName('NOMBRE').Value:=nom;

   Try
    MOD.MyCommand1.Execute;
    
   

   Except

   End;
   MOD.Tabla1.Refresh;

end;

Al igual Inc(cont) tb me sale mismo numero filas.