TCategoryButtons

Potřeboval bych poradit jak pracovat s touto komponentou za běhu program.

Jsem schohpen za běhu program vytvořit či odstratint kategoriji ale neumím do ní vložit nové ikony.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
MyCategory.Categories.Insert(1);
M yCategory.Categories[1].Caption:='ahoj';

end;

pro cedure TForm1.BitBtn2Click(Sender: TObject);
begin
MyCategory.Categories.Delete(1);
e nd;

Jsem najivně předpokládal, že vložení dalšího podmenu (button) bude následující MyCategory.Categories[0].Items.Insert(1);
Ale bohužel takto to nefunguje.