Set property for all components

Change a Caption and Width properties for all components of TButton type. Realization:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Counter,Bt: Integer;
begin
  Bt:=0;
  for Counter:=0 to Pred(ComponentCount) do
    if Components[Counter] is TButton then
      with TButton(Component[Counter]) do
      begin
        Inc(Bt);
        Caption:='Hello '+IntToStr(Bt);
        Width:=150;
      end;