delphi的获取某坐标的颜色值

1.通过API函数GetPixel(),获取某个点的颜色值;

var
    PT : TPoint;
    C  : TColor;
    DC : HDC;
begin
    GetCursorPos(PT);
    DC := GetDC(0);
    C := GetPixel(DC,PT.x,PT.y);
　 self.color := c;  //设置窗体颜色
    edit1.text := FORMAT($%.6x,[C]);
end;

获取的TColor颜色值为BGR格式($F6E6E1),和网页html的RGB格式相反，如要和delphi颜色效果相同，设置为#E1E6F6;