Capturando evento onclick

Gostaria de, no código abaixo, conseguir pegar se um determindado item do menu está sendo clicado. Alguém se habilita?

var

hWnd : Integer;
hMainMenu : Integer;
hMenu : Integer;
MenuID : Integer;

begin

hWnd := FindWindow(´Notepad´, nil);

If hWnd <> 0 Then

begin

hMainMenu := GetMenu(hWnd);

hMenu := GetSubMenu(hMainMenu, 2);

MenuID := GetMenuItemID(hMenu, 1);

SendMessage(hWnd, WM_COMMAND, MenuID, 0);

end;
end;