[anubis]

Gracias por las aportaciones, pero no me funciona snif

tengo este codigo

Código Delphi [-]
procedure Trregistro.xtipohabitaClick(Sender: TObject);
var
fila,columna:integer;
pasar:tlabel;
textos:string;
begin
   pasar := TLabel.Create(self);
   pasar.Parent  := fentrada;
   pasar.enabled:=true;
fila:=xtipohabita.col;
columna:=xtipohabita.row;
if xtipohabita.cells[fila,columna]<>'' then
  begin
   fentrada.ha:=strtoint(xtipohabita.cells[fila,columna]);
   textos:=xtipohabita.cells[fila,columna];
   pasar.Name:='Lh'+textos;
    pasar.caption:=textos;
    fentrada.lbl.name:='lh'+textos;
   pasar.caption:=xtipohabita.cells[fila,columna];
   fentrada.lbl.enabled:=true;
   fentrada.refresh;
 showmessage(fentrada.lbl.caption);
  pasar.destroy;
  end;
end;

tengo en el form fentrada los labels por ejemplo el label maestro por asi decirlo se llama en caption 101, en name lh101, pero esos label el resto son lh102, etc.....
aplicando el codigo que me habeis dicho, podria hacer que el name del label sea lh110 y ahi redibujarlo en fentrada, pero no funciona, me debe faltar algo imagino.
El problema es poder modificar cualquier label del form fentrada.

gracias por la paciencia