取屏幕点的颜色值

var
  Str: TPoint;
  BarHand: THandle;
begin
  GetCursorPos(Str);
  BarHand := GetDC(0);
  Panel1.Color := GetPixel(BarHand, Str.X, Str.Y);
  Caption := IntToStr(Panel1.Color);