Hola francodelphi.
Para consultar si está ocupada sólo es necesario evaluar la fecha hasta.
Un ejemplo:
Código Delphi
[-]
var
OcupadaHasta: TDateTime;
FechaAConsultar: TDateTime;
begin
OcupadaHasta:= StrToDateTime('05/01/2011'); FechaAConsultar:= StrToDateTime('04/1/2011'); if CompareDate(OcupadaHasta, FechaAConsultar) = 1 then
Caption:= 'OCUPADA' else
Caption:= 'LIBRE';
...
A fines del ejemplo asigné los valores a mano, pero lógicamente el valor de
OcupadaHasta deberá ser obtenido de alguna tabla.
Saludos.