[Serga]

Вот такая проблема:
ToolBar выровнен по левому краю, wrapable = true, кнопки создаются динамически и располагаются на нём в один столбец - то бишь по одной кнопке в ряду. Но почему то только если кнопок не больше 15 штук, иначе строится второй столбец.
А если присваивать создаваемой кнопке wrap true, то следующая кнопка не выполняет OnClick.
Создаются кнопки вот так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

for i := 0 to list.Count - 1 do     begin      tb.InsertControl(TToolButton.Create(tb));     end;       for i := 0 to tb.ButtonCount - 1 do     begin        tb.Buttons[i].OnClick := tb0.OnClick;      tb.Buttons[i].Hint := list.Strings[i];       end;