[defcon1_es]

Estas 2 líneas no tienen lógica, a mi parecer , porque el método ExecSQL "creo" (no lo he probado) que no hace nada en este caso.

Código Delphi [-]
 
        sqlClasse.ExecSQL;
        sqlClasse.Active:=true;

sustituyelas por

Código Delphi [-]
 
        sqlClasse.Open;

Recomendación:

El método ExecSQL debes usarlo para sentencias SQL que no devuelven un cursor a datos, es decir, INSERT, UPDATE, DELETE, y CREATE TABLE.
Para cualquier sentencia SELECT, usa el método Open (o pon la propiedad Active := True)

Salu2.