Проверка пикселей

[Obey177]

Вот смотрите парни задумал я чтобы прога на определенной заточке останавливалась сделал скрипт для проверки пиксилей но незнаю как воплотить его в жизнь вот скрипт

Function GetPix(var point:TPoint): Cardinal;
Var
Dc: HDC;
Pix: Cardinal;
Begin
Dc:=GetDC(0);
Pix:=GetPixel(Dc,point.X,point.Y);
ReleaseDC(0,Dc);
GetPix:=Pix;
End;

так вот смотрите на скрине отмечен процесс точения

нужно что бы я допустим в эдит вписывал +16 и програма при заточке пухи на 16 останавливалась...