Глюк с раделением Tpopupactionbar на столбци

[VahaC]

Создаю и делю вот так

if index < 0 then
Exit;
parent := mpPopup.Items.Items[index];

//	If no available skins...
if sl.Count < 1 then begin
parent.Caption := ('No skins available');
end
//	If available skins...
else
for i := 0 to sl.Count - 1 do begin
parent.Add(NewItem(sl[i],0,False,True,SkinsClick,0,'skin_'+IntToStr(i)));
parent.Items[i].GroupIndex := 1;
parent.Items[i].RadioItem := true;
parent.Items[i].Tag := i;
if sSkinManager1.SkinName = sl[i] then
parent.Items[i].Checked := true;
if (parent.Count mod 15) = 0 then parent.Items[i].Break := mbBreak; // здесь делю
end;

но вот этот код почему то не работает.
Что в этом коде не так?

 

[vital]

Так и не понял, что вы хотите сделать..

 

[VahaC]

Таким вот образом создаю меню для выбора скина в проге.
Скинов у меня больше 50, соответственно всё меню на экране не помещается.
Поэтому хочу через каждые 15 пунктов добавлять ещё один столбик,
в результате должно получится три столбца по 15 пунктов и один на оставшихся пару пунктов (кол-во скинов - 15*3)