Reference TWebContextMenuEvent

Context menu events occur before a context menu is shown. X and Y are -1 when the menu was requested using the keyboard. Set Handled to True to prevent the default menu.

TWebContextMenuEvent = procedure(Sender: TObject; X, Y: Integer; HitTest: TWebHitTest; const Link, Media: string; var Handled: Boolean) of object;