Сообщение Как сделать контекстное меню у кнопки?

[sislexa]

Хочу сделать такую штуку чтоб при нажатии на кнопку около неё появлялось как-бы меню выбора(допустим кнопка это у нас глава 1 а при нажатии на неё в этом меню отображался список разделов) как это реализовать? заранее благодарен ответившим!
вот пример

 

[Dock1100]

Можно сделать с помощю TPopUpMenu,

procedure TForm32.Button1Click(Sender: TObject);
var p:Tpoint;
begin
getcursorpos(p);
popupmenu1.Popup(p.x,p.y);
end;

 

[sislexa]

чтот не получается . он не выводит подменюшку

 

[Dock1100]

просто с начала надо PopUpMenu меню заполнить(двайной клик на компоненте)