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

Code:

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;