[M.A.D.M.A.N.]

Код:

procedure OnKeyDown(~...~);
vap _mnupos:TPoint;
begin
  _mnupos.X:=Self.Left+Memo1.Left;
  _mnupos.Y:=Self.Top+Memo1.Top;
  If Key='q' Then
    MopupMenu1.Popup(_mnupos.X,_mnupos.Y);
end;