Показать PopUpMenu

 TPointF FP;
 // Initialize the coordinates to the origin of the button control.
 FP.X = 0;
 FP.Y = 0;
 // Transposes the coordinates in the context of the form.
 FP = SpeedButton2->LocalToAbsolute(FP);
 // Transposes the coordinates in the context of the screen.
 FP = ClientToScreen(FP);
 // Display the popup menu at the computed coordinates.
 MainPopupMenu->Popup(FP.X-MainPopupMenu->Items[0]->Width-50, FP.Y+ToolBar1->Height);

На андроиде глючит