хочу сделать обзор своей программы

[aha]

, сделав некую анимацию, то есть мышь устанавливается программно на нужную позицию Mainmenu, программно кликает и появляется либо хинт.
Вопрос 1 . как установить программно мышку на нужную позицию Mainmenu ?
Вопрос 2 связан с первым вопросом , как заставить программно выпасть mainmenu ?

я хотел вот такое получить , методом тыка получилось
но может быть надо по другому делать ?
Код:

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
Application.ProcessMessages;
{Alt Key Down}
keybd_Event(VK_MENU, 0, 0, 0);
{F Key Down - Drops the menu down}
keybd_Event(ord('2'), 0, 0, 0); //меню к примеру имеет caption=2
{F Key Up}
keybd_Event(ord('2'), 0, KEYEVENTF_KEYUP, 0);

   keybd_event(BYTE(40), 0, 0, 0);
   keybd_event(BYTE(40), 0, KEYEVENTF_KEYUP, 0);

   keybd_event(BYTE(40), 0, 0, 0);
   keybd_event(BYTE(40), 0, KEYEVENTF_KEYUP, 0);//lдважды нажимаю на курсор вниз , чтобы выделить нужный пункт меню 

{Alt Key Up}
keybd_Event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
{F Key Down}
end;

И еще заметил данный метод не подходит в случае если меню написано кириллицей, как у меня - с File прокатит , а с Файл не работает .. (((