Bueno solucionado el problema. Te cuento y quedara constancia de que el error Acces Violation es porque se intenta acceder a un objeto que ya no existe.
Resulta que haciendo las pruebas de borrar registros y crear manualmente, siguiendo las instrucciones de MarcosZorrilla, he descubierto que en realidad no ocurria por cambiar la tabla mala por la buena, sino que al poner la supuesta tabla mala, el hilo del programa entraba en una instruccion que tontamente he puesto mal y por tanto ahi estaba el problema, lo que me ha confundido es que en realidad al cambiar la tabla es cuando se saltaba la instruccion y es cuando ocurria el problema. Pongo el codigo:
Código Delphi
[-]
if DbContrato.RecordCount>0 then
Ficha1:=TContratosRecPend.Create(Self);
Ficha1.DbContrato.Active:=True;
Ficha1.Showmodal;
Ficha1.DbContrato.Active:=False;
Ficha1.Free;
Resulta que se me paso poner el begin...end despues del then para que se ejecutara todo el grupo de instrucciones. Entonces cuando el if no se ejecutaba, resulta que la ventana no se creaba y se intentaba acceder a la misma. Mea culpa, despues de años programando con delphi se puede caer en el fallo mas tonto.
Gracias MarcosZorrilla por tu ayuda y lamento no haberme dado cuenta antes y haberte robado parte de tu tiempo que debe ser muy valioso. Espero no volver a cometer este tipo de errores, que pienso que ocurren mas porque se concentra uno en lo que debe hacer la aplicacion y deja un poco de lado cosas que tiene mas que aprendidas. El codigo correcto es:
Código Delphi
[-]
if DbContrato.RecordCount>0 then
begin
Ficha1:=TContratosRecPend.Create(Self);
Ficha1.DbContrato.Active:=True;
Ficha1.Showmodal;
Ficha1.DbContrato.Active:=False;
Ficha1.Free;
end;
Gracias de nuevo MarcosZorrilla y recibe un cordial saludo.