[lmikle]

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. Можно настроить и стандартный компонент. На вскидку не скажу как (просто не помню), но делал такое.