[Alegun]

Код рабочий, проверено под D7. Советую на время вместо строки

Код:

Form1.Label8.Color:= GetPixel(DC, Cur.X, Cur.Y);

задействовать

Код:

Form1.Label8.Caption:= IntToStr(Cur.X) + ' : ' + IntToStr(Cur.Y);