var
fechadevueltaS 
ate;
with SQLQuery1 do
begin
SQL.Text:= 'Select TABLA.FECHA, TABLA.TIPO FROM TABLA WHERE TIPO = :a AND Fecha >= :Fech1 AND Fecha <= :fech2 ';
Params[0].Value:= 'X';
Params[1].Value:= DateToStr(DTP1.Date);
Params[2].Value:= DateToStr(DTP2.Date);
Open;
fechadevueltaS := fieldbyname('fecha').AsDate;
end;
end;