usar variables de otras units

[anubis]

gracias de nuevo, ya esta corregido, pero sigo sin poder saber como usar una variable y/o contenido en otro form, porque si solo paso una variable como por ejemplo label1, y la quiero visualizar en el otra unidad que tiene otro form, la verdad es uqe no me sale.

[[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