procedure TForm1.Timer1Timer(Sender: TObject);
var
DC: HDC;
color: TColorRef;
pont:Tpoint;
begin
getcursorpos(pont);
DC:=GetDC(0);
try
Color:=GetPixel(DC,pont.x,pont.y);
Win32Check(Color<>CLR_INVALID);
form1.Color:=color;
finally
ReleaseDC(0,DC);
end;
end;