Ese es un procedure de la unit entrada
Código Delphi
[-]
procedure Tfentrada.lh101Click(Sender: TObject);
var
label2:tlabel;
comp:TShape;
lbl:TLabel;
nom:String;
begin
lbl := TLabel(Sender);
nom := copy(lbl.Name, 2, Length(lbl.Name));
comp := TShape(FindComponent(nom));
fhabitacion.showmodal;
if comp.brush.color = clYellow then
begin
comp.Brush.color:=clRed;
lbl.font.Color:=clYellow
end
else
begin
comp.Brush.color:=clYellow;
lbl.Font.color:=clblack
end
end;
quiero pasar a la unit habitacion la variable lbl que es un tlabel, pero imagino que valdra para cualquiera.
y para visualizarla en esto form
grfacias de nuevo