Delphi/C++ Builder で Button でポップアップメニュー

Delphi 2010 の TButton (TCustomButton) に DropDownMenu プロパティが追加されて、ボタン→ポップアップメニューてのが、あっさり実現するのかとおもいきや Windows Vista 以降のみでしか使えない(Helpにも書いてある)
ということで

procedure TForm1.Button1Click(Sender: TObject);
begin
  with (Sender as TButton) do begin
    PopupMenu1.Popup(ClientOrigin.X, ClientOrigin.Y + Height);
  end;
end;

という風に TButton の ClientOrign を使うと、けっこう簡単に位置決めができる