[aledieb]

Por que no usas la instrucción de insert con un query sin abrir la tabla:

Código Delphi [-]
query1.sql.add('Insert into tutabla (campo1,campo2, campo3)');
query1.sql.add('values (valor1, valor2, valor3)');
query1.ExecSQL;