Title: How to popup the system menu at a specified position
procedure TForm1.Button1Click(Sender: TObject);
const
{ Undocument message ID }
WM_POPUPSYSTEMMENU = $313;
begin
SendMessage(Handle, WM_POPUPSYSTEMMENU, 0,
MakeLong(Mouse.CursorPos.X, Mouse.CursorPos.Y));
end;