[Noooob]

Можете пожалуйста пример

вот я пробувал

Код:

Var
  Bmp : TBitmap;
  DC : HDC;
Begin
  Bmp := Tbitmap.Create;
  Bmp.Height := Screen.Height;
  Bmp.Width := Screen.Width;
  DC := GetDC(0);
  Bitblt(Bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
  ReleaseDC(0, DC);
for i:=0 to screen.Width div scale do
for j:=0 to screen.Height div scale do 
begin
if bmp.Canvas.Pixels[i,j]=clRed then
.......
else
......
end;
  bmp.free;
end;