procedure TCustomActionToolBar.SetBounds(ALeft, ATop, AWidth,
  AHeight: Integer);
var
  NewWidth: Integer;
begin
  if (AutoSizing or Floating) and not AlignDisabled and Assigned(ActionClient) and
     (ActionClient is TActionBarItem) then
  begin
    AHeight := GetBarHeight; { это шо? присвоение одной переменной в другую или функция/процедура? }
    NewWidth := GetBarWidth { и это };
    if not Floating and (NewWidth <> Width) then
      AWidth := NewWidth; { и тут }
  end;
  inherited SetBounds(ALeft, ATop, AWidth, AHeight);
  if not AutoSizing then
    HideUnusedItems;  { а тут вообще какая то хрень }
end;