void __fastcall TForm1::Button1(TObject *Sender)
{
  PopupMenu1->Popup(Button1->Left,Button1->Top + 20);
}