[Casimiro Notevi]

Hay cosas extrañísimas en ese código, por ejemplo:

Código Delphi [-]
Consulta.ExecSQL;
Consulta.Open;

Si es un select, entonces es Open.
Si es un insert, delete, update, entonces es ExecSQL;
Pero nunca los dos seguidos.