1. Можно сдеалать черещ PopupMenu
Код:
procedure TForm1.Label1Click(Sender : TObject);
var
p : TPoint;
begin
p.Top := (Sender As TLabel).Top + (Sender As TLabel).Height;
p.Left := (Sender As TLabel).Left;
p := ClienttoScreen(p);
PopupMenu1.Popup(p);
end;
Ну и в обработчике MenuItem'ов укажешь на установку соотв. значения.
2. Можно настроить и стандартный компонент. На вскидку не скажу как (просто не помню), но делал такое.