Программно нажать пункт меню в блокноте

 //********** FUNCTION **********
 function Click_MainMenu_item(Form: Thandle; NumMenu:integer=0;
   NumItem:integer=0):variant;

var hm:Hmenu;  i, idmen:integer;
begin

hm:=GetMenu(form);
//hm:=GetSubMenu(hm,NumMenu);
idMen:=GetMenuItemID(hm,NumItem);
if idMen<>0 then
 PostMessage(form,WM_COMMAND,idMen,0);
result:=idmen;
end;
//********** END FUNCTION ******

procedure TForm1.Button1Click(Sender: TObject);
var hm:HMENU;
begin
 Click_MainMenu_item(Handle,1,0);
end;