PopupMenu-Item->Rechtsklick

[s14]

Hallo zusammen,
also die Position des Popupmenüs würde ich anders ermitteln:

Delphi-Quellcode:

var p : TPoint;
begin
  if GetCursorPos(p)
    then PopupMenu1.Popup(p.X, p.Y);

Wäre es nicht auch überlegenswert die Komponente TMenuItem um das Ereignis OnMouseDown zu erweitern??