Как программно заставить выпасть меню

procedure TForm1.Button1Click(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;