Hola, promero que todo es pedirte el favor de que uses las etiquetas Delphi.
Y ahora para responder a tu pregunta:
Deberias intentar esto:
Código Delphi
[-]With Query1 do
begin
if (DataModule.tdemanda.FieldByName('ttipo_demanda').Value=1) then
with SQL do
begin
...
Espero te sirva