[Serga]

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

Код:

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;