[Alegun]

Горячку можно повесить на клавишу а не на кнопку, на клаву а не на грызуна, тогда лучше пользовать перехват ловушкой, вот вариант отлова жима ПКМ, отжим - это WM_RBUTTONUP

Код:

var
MouseHook: HHOOK;

function LowLevelMouseProc(nCode: Integer; WParam: WPARAM;
                    LParam: LPARAM): LRESULT; stdcall;
begin
 Result:= CallNextHookEx(MouseHook, nCode, WParam, LParam);
 
if WParam = WM_RBUTTONDOWN then... // она вдавилась, здесь что-то делаем
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 MouseHook:= SetWindowsHookEx(14, @LowLevelMouseProc, HInstance, 0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 UnhookWindowsHookEx(MouseHook);
end;