Código Delphi [-] var i:Integer; begin for i := 1 to 2 do begin with TButton(FindComponent('b' + IntToStr(i))) do begin caption:='Hola'; end; End;
var i:Integer; begin for i := 1 to 2 do begin with TButton(FindComponent('b' + IntToStr(i))) do begin caption:='Hola'; end; End;