Problema con Insert dentro de Evento BeforePost

[hades2600]

En ese código veo varios problemas.

En primer lugar tienes dos instrucciones with anidadas. Eso puede provocar que Delphi se vuelva loco y no tenga claro sobre qué consulta tiene que ejecutar cada una de las instrucciones. No debería tener nada que ver con tu problema, pero puede ayudar a leer mejor el código, tanto tú como como Delphi.

En segundo lugar, no tienes ningún tipo de protección de las instrucciones, es decir, no controlas que si alguna de la consulta de inserción produce un error, no se ejecute la instrucción principal (sentencia try...except/finally...end).

A la vista de tu código creo que tu problema viene porque intentas insertar en la tabla tClientesApartamentosTrans una serie de valores nulos (fíjate bien y verás:

if IsEmtpy then <- Hace referencia a QueryConsulta

después el insert lo haces con la misma tabla que te ha salido que está en blanco.

Además, ten en cuenta que no has asignado ningún valor al parámetro de la consulta de inserción, con lo cual puedes tener cualquier cosa en el parámetro menos lo que toca.

No sé si me explicado bien. Si tienes alguna duda, no dudes en preguntar.