var
fechadevueltaS :String;
with SQLQuery1 do
begin
close;
SQL.Clear;
SQL.Add('Select TABLA.FECHA, TABLA.TIPO FROM TABLA WHERE TIPO = 'X' AND Fecha BETWEEN '07/10/2010' and '08/07/2010' ');
Open;
while (not Eof) do
begin
fechadevueltaS :=(fieldbyname('fecha').AsString);
Next;
end;
end;