for i := 0 to 9 do<br>      TButton(Form1.FindComponent('btnMacro' + IntToStr(i + 1))).Caption := Macrolist[i].Name;<br><br>Antônio<br>