[droguerman]

con el método findComponent:

Código Delphi [-]
var
  comp : TLabel;
begin
  comp := TLabel(self.FindComponent('Lh'+IntToStr(numero)));
end;