The following example demonstrates both dropping down a menu and selecting a menu item by synthesize menu shortcut keys. If your application does not have shortcut keys assigned to the menu items, you can send combinationsof the VK_MENU, VK_LEFT, VK_DOWN, and VK_RETURN keys to programmatically navigate the menu.

procedure TForm .Button Click(Sender: TObject);
begin
//Allow button to finish painting in response to the click
  Application.ProcessMessages;
 {Alt Key Down}
  keybd_Event(VK_MENU, 0, 0, 0);
 {F Key Down - Drops the menu down}
  keybd_Event(ord('F'), 0, 0, 0);
 {F Key Up}
  keybd_Event(ord('F'), 0, KEYEVENTF_KEYUP, 0);
 {Alt Key Up}
  keybd_Event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
 {F Key Down}
  keybd_Event(ord('S'), 0, 0, 0);
 {F Key Up}
  keybd_Event(ord('S'), 0, KEYEVENTF_KEYUP, 0);
end;