1:
2:
3:
4:
5:
6:
7:
8:

var   DC : HDC;
      Col : TColor;
begin

    DC := CreateDC('DISPLAY', nil, nil, nil);
    Col := integer(GetPixel(DC, Mouse.CursorPos.X, Mouse.CursorPos.Y));
    DeleteDC(DC);
end;					

1:
2:
3:

        [DllImport("gdi32.dll")]
        static extern IntPtr CreateDC(string lpszDriver, string lpszDevice,
           string lpszOutput, IntPtr lpInitData);					

1:
2:

            IntPtr dc;
            dc = CreateDC("DISPLAY", String.Empty, String.Empty, IntPtr.Zero);