gracias. Tengo una duda respecto a eso, uno de los cuadros es este
Código Delphi
[-]procedure Tfentrada.Lh101Click(Sender: TObject);
var habita:integer;
begin
habita:= h101.Brush.Color;
if habita = clYellow then
begin
habita:=clRed;
h101.Brush.color:=habita;
Lh101.Font.Color:=clYellow
end
else
begin
habita:=clYellow;
Lh101.Font.Color:=clBlack;
h101.Brush.color:=habita
end
end;
el procedimiento que me mencionas donde debe de ir, ademas los labels estan renombrados asi lh101 y cambiara en funcion de la habitacion lh102...
la verdad es que con vuestra ayuda estoy aprendiendo mucho, a ver si tambien puedo ayudar a otros.