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

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

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

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

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