Cor da Área do Mouse

function DesktopColor(const X, Y: Integer): TColor;
var
  c: TCanvas;
begin
  c := TCanvas.Create;
  try
    c.Handle := GetWindowDC(GetDesktopWindow);
    Result   := GetPixel(c.Handle, X, Y);
  finally
    c.Free;
  end;
end;

 var mouse:tpoint;
begin
 GetCursorPos(mouse);
  Panel.Color := DesktopColor(mouse.X, mouse.Y);
  panel.Refresh;
  memo.Lines.Add(TColorToHex(DesktopColor(mouse.X, mouse.Y)));
end;