Este mozes radsej pouzit GetDC(0) namiesto toho GetWindowsDC to je na cely screen zbytocne. Napr. nieco take (neskusal som to v delphi ptz nerobim v delphi, toto su priamo WinAPI funkcie ktore sami o sebe musia fungovat vsade, http://msdn.microsoft.com/en-us/library/aa921543.a spx , http://msdn.microsoft.com/en-us/library/aa928105.a spx)

var
  dc: HDC;
  n: integer;
begin
  dc := GetDc(0);
  if(GetPixel(dc, 423, 300) = $FF0000) n:=1;
  ...
  ReleaseDc(0, dc);
end;