Código Delphi [-] for I:=1 to 5 do TLabel(FindComponent('Label'+IntToStr(I))).Caption := 'Lo que sea';
for I:=1 to 5 do TLabel(FindComponent('Label'+IntToStr(I))).Caption := 'Lo que sea';