Например имеем мы 6 батонов и хотим их все перебрать и заголовки им поменять
Сделать можно следующим образом:

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
 for i:=0 to ComponentCount-1 do
  for j:=1 to 6 do
   if Components[i].Name='Button'+IntToStr(j) then (Components[i] as TButton).Caption:='ya';
end;

Коряво но это первое, что пришло на ум.

Rastaman написал(а):

Код::

 for i:=0 to ComponentCount-1 do
  for j:=1 to 6 do
   if Components[i].Name='Button'+IntToStr(j) then (Components[i] as TButton).Caption:='ya';

Коряво но это первое, что пришло на ум.

либо юзаем метод TComponent'a

  for i := 0 to 6 do
    TButton(FindComponent('Button' + IntToStr(i))).Caption := 'good';

+ проверка на nil если не уверен в наличии этих кнопок. сравнить скорость фрагментов сейчас нету времени, но думаю не сильно отличаются (за FindComponent скрывается тот же перебор что и у растамана).

F1 + FindComponent (TComponent)