Mueve esa escritura al proceso superior.
Cambia esa escritura en 'memo1' dentro de 'Insertar_Registro_Tabla_1' por otra después de la llamada a ese proceso.
Código Delphi
[-]
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));
Así suponiendo que insertes la tabla entera.