Delphi - ibquery

Buenos dias, estoy modificando una aplicacion que tenia con access y ado y ahora la tengo con firebird 2.0 con componente ibx, en algunos casos utiizo el componente adoquery, trate de utilizarlo con ibdataset pero me da un error, me fui a ibquery pero aun asi me da un error este es parte del codigo que estoy utilizando

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;
close;
SQL.Text := cad;
// ExecSQL;
open;
EnableControls;
end;
no se si me hara falta alguna definicion .

el error que me da es un dinamic sql error expreccion de evaluacion no soportda, igual me da al usar rl ibdataset.


Saludos Muchas Gracias

p.d. nombre muchas gracias por las acertadas ayudas