Få fat i Button1,2,3 osv. med "For I:=0 to 34 do"

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for I := 0 to Form1.ComponentCount-1 do
    if Form1.Components[I].ClassType = tButton then
      if Form1.Components[I].Name = 'Button1' then
          (Form1.Components[I] as TButton).Caption := 'Yep yep';
end;