[Alegun]

У вас есть весь код для подобной реализации, но видимо проблема как раз в организации такого действа. Тогда вот, окончательная копипаста

Код:

procedure ptg;
var
 DC: HDC;
 Cur: TPoint;
begin
   DC:= CreateDC('MONITOR', nil, nil, nil);
   Windows.GetCursorPos(Cur);
   Form1.Label8.Color:= GetPixel(DC, Cur.X, Cur.Y);
   DeleteDC(DC);
end;

var
 MouseHook: HHOOK;

 function LowLevelMouseProc(nCode: Integer; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall;
begin
 Result:= CallNextHookEx(MouseHook, nCode, WParam, LParam);
 if WParam = WM_MBUTTONDOWN then ptg;
end;

procedure TForm1.WMHotKey(var Message: TMessage);
begin
 ptg;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 RegisterHotKey(form1.Handle,12345, MOD_ALT or MOD_SHIFT,  $5A);
 MouseHook:= SetWindowsHookEx(14, @LowLevelMouseProc, HInstance, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnregisterHotKey(Handle, 12345);
 UnhookWindowsHookEx(MouseHook);
end;