shape en tabla

[anubis]

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.