[anubis]

Gracias, ya pude, en otro post me dieron una solucion, ahi la pongo

Código Delphi [-]
procedure Trregistro.xtipohabitaClick(Sender: TObject);
var
fila,columna:integer;
pasar:tlabel;
begin
fila:=xtipohabita.col;
columna:=xtipohabita.row;
if xtipohabita.cells[fila,columna]<>'' then
  begin
   fentrada.ha:=strtoint(xtipohabita.cells[fila,columna]);
    pasar := TLabel(fentrada.FindComponent('Lh'+xtipohabita.cells[fila,columna]));
    pasar.caption:=xtipohabita.cells[fila,columna];
    pasar.name:='Lh'+xtipohabita.cells[fila,columna];
    pasar.enabled:=true;
  end;
end;

por si sirve, muchas gracias