Delphi - ibdataset e ibquery problema

buenas tardes, tengo un problemin con el uso de ibdataset o ibquery este es mi codigo

with ibq1 do
begin
cad := 'select cpa_id_cama , nombre || ' + '''' + ' ' + '''' + ' || apellido_pat || '
+ '''' + ' ' + '''' + ' || apellido_mat ' +
' from cuarto_paciente, dato_general_paciente ' +
' where cpa_codempresa = ' +
'''' + fprincipal.gcodempresa + '''' +
' and cpa_codempresa = cod_empresa ' +
' and cpa_id_paciente = id_paciente ' +
' and cpa_nota = ' + prenota.text +
' and cpa_status in (' + '''' + 'C' + '''' + ',' + '''' + 'A' + '''' +')';
//= ' + '''' + 'C' + '''';
DisableControls;
xx.Text := cad;
close;
adoq1.SelectSQL.Text := cad;
ExecSQL;
open;
EnableControls;
end;

itilizo firebird con delphi 6,

a la hora de llegar al execsql me da e lsiguiente error USE OPEN FOR SELECT STATEMENT. segun yo hasta que el open va despues de dicho comando, si pongo el open antes me da el mismo error a la hora del execsql. que me esta faltando para poder realizar la consulta.

Saludos Gracias

YO MISMO ME RESPONDO Y ASI AYUDAMOS A LA COMUNIDAD EN EL CASO DEL EJEM. ANTERIOR NO ES NECESARIO PONER LA CLAUSULA EXECSQL, YA QUE AL ABRRIR EL QUERY O DATASET SE EJECUTA LA SENTENCIA SELECT.

Use TQuery.Open to execute a query that produces a result set; use TQuery.ExecSQL to execute queries that do not produce result sets.

GRACIAS HERMANO.

PURA VIDA