[[Caral]]

Hola
En delphi teniendo en cuenta tres label:

Código Delphi [-]
var
  i :Integer;
  comp:TComponent;
begin
  for i := 1 to 3 do begin
   comp := FindComponent('Label' + IntToStr(i));
   TLabel(comp).Caption:= IntToStr(0 + i);
  end;

Saludos