usar variables de otras units

[[Delphius]]

¿Label1 es una variable de que tipo? ¿O es que label1 es un TLabel?
¿En que form está Label1? ¿En el form al que se le llama?

Te recomiendo que muestres un poco de código para ver que es lo que estás tratando de hacer.

[anubis]

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
       // Acceder al label
  lbl := TLabel(Sender);
  // Acceder al pabel relacionado con ese label
  nom := copy(lbl.Name, 2, Length(lbl.Name));
  // Con esto si el label es el lh101 nom valdrá h101,
  // buscamos el shape con ese nombre
  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

[anubis]

gracias, ya esta resuelto. Solo tenia que declarar la variable en public en vez de en la procedure, imagino que sera lo mismo para el type.

gracias de nuevo