eso te explicaba en post anteriores
pseudocodigo:
Código Delphi
[-]
Fecha := FechaHasta
while FechaHasta >= Fecha do
begin
qrybuscarfechaenTabla.parameters.parambyname('fecha').value := fecha
qrybuscarfechaenTabla.open
if qrybuscarfechaenTabla.reccount <> 0 Then
label.caption := 'ocupada'
else
label.caption := 'Libre'
Inc (fecha)
end