Hola,
Creo que ya se que lo que te pasa.
Mira lo que yo hice cuando me ha pasado eso es unir las dos cadenas.
Código Delphi
[-]cadena1:='select codigo from tabla where ';
cadena2:=' codigo ....';
query1.sql.text:=cadena1+cadena2;
Si te hacen falta mas string las creas, eso sí acuérdate de dejar los espacios si son necesarios, al final de cada string sino te dara error.
espero que te sirva
saludos