Как добавить пункт в контекстное меню браузера?

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,OleAcc, ExtCtrls, StdCtrls;
 
type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
procedure RecalcText;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
g_pszText: String;
g_pt: TPoint;
{ Private declarations }
public
{ Public declarations }
end;
 
function AccessibleObjectFromPoint(ptScreen: TPoint; out ppacc: IAccessible; out pvarChild: Variant): HRESULT; stdcall; external 'oleacc.dll';
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.RecalcText;
var
pt: TPoint;
pacc: IAccessible;
vtChild: Variant;
bsName, bsValue: WideString;
begin
if GetCursorPos(pt) and ((pt.x <> g_pt.x) or (pt.y <> g_pt.y)) then
begin
g_pt := pt;
if (SUCCEEDED(AccessibleObjectFromPoint(pt, pacc, vtChild))) then
try
bsName := '';
bsValue := '';
pacc.get_accName(vtChild, bsName);
// pacc.get_accValue(vtChild, bsValue);
g_pszText := 'Name: ' + bsName ;
finally
VarClear(vtChild);
pacc := nil;
end;
end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
RecalcText;
Label1.Caption := g_pszText;
end;