Código Delphi
[-]
if miQuery.FieldByName('CampoReserva').asString = 'R' Then
....
else if miQuery.FieldByName('CampoReserva').asString = 'R' Then
....
miQuery = Es el componente que utilizas para recuperar los datos de la consulta.
CampoReserva = es el campo que indica si la habitación está reservada.
por cierto, ¿que tipo de datos guarda el campo que indica si la habitación esta reservada o no?, es tipo string? o booleano?