Lo que te pasa es que estas utilizando, (Open) en vez de (ExecSQL), la sentencia (Open) sólo se utiliza cuando la DB te devuelve registros y el (ExecSQL) es para que se ejecuta la SQL.
Usa:
Código SQL
[-]ADOQuery1.ExecSQL en vez de ADOQuery1.Open
Un saludo.