library lib2;
uses
 forms,
 menus,
 windows,
 dialogs,
 messages,
 controls,
 Unit1 in 'Unit1.pas' {Form1};

type
TFm = class(TForm)
procedure x1Click(Sender: TObject);
end;

var
pt : TPoint;
theHook : THandle;
fm:TFm;
popupmenu1:tpopupmenu;

procedure TFm.x1Click(Sender: TObject);
begin
    showmessage('#')
end;

procedure DLLProc_(Reason: Integer);
var i:integer;
begin
 if Reason = DLL_PROCESS_DETACH then
 {popupmenu1.free}
end;

function MouseHook(nCode, wParam, lParam : integer) : Lresult; stdcall;
Begin
case wParam of
WM_RBUTTONUP :
  begin
   popupmenu1 := tpopupmenu.create(application);
   with popupmenu1.items do add(newitem('click',0,False,True,fm.x1Click,0,'MenuItem1'));
   popupmenu1.popup(mouse.cursorpos.x,mouse.cursorpos.y);
  end
  else
  Result := CallNextHookEx(theHook, nCode, wParam, lParam);
end;

End;

procedure Start;
begin
theHook := SetWindowsHookEx(wh_mouse, @mouseHook, hInstance, 0);
if theHook = 0 then
  messageBox(0,'Error!','Error!',mb_ok);
end;

procedure Remove;
begin
UnhookWindowsHookEx(theHook);
end;

exports
Start index 1 name 'Start',
Remove index 2 name 'Remove';

begin
 DLLProc:= @DLLProc_;
end.

type
TFm = class(TForm)
procedure x1Click(Sender: TObject);
end;

MouseHook

P.Popup()

ShowMessage()