if Perform(TB_GETITEMRECT, Index, R) <> 0 then

ToolButton1.Enabled := False

RealignToolBars(Self);

type
  TEnumControlsProc = function (AControl: TControl): Boolean of object;

class function TMethods.RealignToolBars(AControl: TControl): Boolean;
var
  LToolBar: TToolBar absolute AControl;
begin
  Result := not (AControl is TToolBar);
  if not Result then begin
    LToolBar.HandleNeeded;
    if LToolBar.Wrapable then
      LToolBar.Realign;
  end;
end;

procedure EnumControls(AParent: TWinControl; const AEnumProc: TEnumControlsProc);
var
  Li: Integer;
  LControl: TControl;
begin
  for Li := 0 to AParent.ControlCount - 1 do begin
    LControl := AParent.Controls[Li];
    if AEnumProc(LControl) and (LControl is TWinControl) then
      EnumControls(TWinControl(LControl), AEnumProc);
  end;
end;

procedure RealignToolBars(AParent: TWinControl);
begin
  EnumControls(AParent, TMethods.RealignToolBars);
end;