[[seoane]]

Justo despues de esta linea:

Código Delphi [-]
ADOQVarios.SQL.Add(cadena);

Prueba a poner esta otra:

Código Delphi [-]
ADOQVarios.Parameters.ParseSQL(Consulta,TRUE);