[fortran]

A ver si alguien me puede echar una mano con esto. Tengo el siguiente código:

Procedure ActualizarTablaVisitas;
var
   aux : integer;
   nueva : TDataSource;
Begin

// Ir al último Lugar de la tabla
   with modulodedatos do
   Begin
     nueva := tablavisitas.MasterSource;
     Tablavisitas.MasterSource := nil;
     Tablavisitas.last;
     aux := TablavisitasIndice_visitas.value;
     aux := aux+1;
     TablaVisitas.Append;
     TablaVisitasIndice_visitas.value := aux;
     TablaVisitasClave_Cliente.value := TablaClientesCodigo_Cliente.value;
     TablaVisitasfechavisita.value := date;
     Tablavisitas.edit;
     Tablavisitas.post;
     Tablavisitas.mastersource := nueva;
   End;
End;

Por algún motivo me rompe al intentar hacer el post. Me da un error de Key violation no se muy bien que hacer
Además me pasa algo raro, cuando lo uso por primera vez, todo parece funcionar perfectamente, la cosa falla cuando intento ejecutarlo después de haber añadido un registro con este procedimiento.

Gracias de antemano por vuestra atención