[Lazarus] Call context menu in my component

[AlexeyT]

Hi. I try to call context menu inside ATSynEdit:

- DoContextMenu(...)- does nothing

- Perform(LM_CONTEXTMENU, 0, 0)- does nothing

- WMContextMenu() must work but I need TMessage param for it, how to get it?

-- 
Regards,
Alexey