Следить за областью экрана

var
  Form1: TForm1;
  r, g, b: Integer; //переменные для значений тракбара
  //TColor можно
implementation
 
{$R *.dfm}
 
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  //красный
  r := TrackBar1.Position;
  Label1.Caption := 'R ' + IntToStr(r);
  Panel1.Color := RGB(r, g, b);
end;
 
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
  //зеленый
  g := TrackBar2.Position;
  Label2.Caption := 'G ' + IntToStr(g);
  Panel1.Color := RGB(r, g, b);
end;
 
procedure TForm1.TrackBar3Change(Sender: TObject);
begin
  //голубой
  b := TrackBar3.Position;
  Label3.Caption := 'B ' + IntToStr(b);
  Panel1.Color := RGB(r, g, b);
end;

var
  i,j,sum,kol,srpix: Integer;
  Bitmap: TBitmap;
begin
  sum := 0;
  Bitmap := TBitmap.Create; //создадим этот объект в памяти
  Bitmap.LoadFromFile('1.bmp'); //çàãðóæàåì èçîáð
  //Bitmap.Assign(Image1.Picture.Bitmap); //èëè òàê çàãðóæàåì
  for i := 0 to Bitmap.Height - 1 do //âûñîòà
    for j := 0 to Bitmap.Width - 1 do
      sum := sum + GetRValue(Bitmap.Canvas.Pixels[j, i]); //ïîäñ÷åò êðàñíîãî îòòåíêà êàæäîãî ïèêñåëÿ (ñóììà)
 
  kol := Bitmap.Height * Bitmap.Width; //êîëè÷åñòâî ïèêñåëåé
  srpix := sum div kol; //ñðåäíåå çíà÷åíèå êðàñíîãî ó ïèêñåëÿ
  Bitmap.Free;
  Label1.Caption :='R ñðåäíåå = '+ IntToStr(srpix);
end;

var
  Form1: TForm1;
 x1,y1,R: Integer;
 i,j,sum,kol,tekz,prz,koef,sh: Integer;
 Bitmap: TBitMap;
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(sh); //счетчик нужен для старта пока в переменной prz нету значения
  prz:=  tekz; //текущее равно предыдущему (для сравнения потом)
  Label2.Caption:= 'R предыдущее= '+ IntToStr(prz);
 
  x1 := 200; //начало копирования по x области
  y1 := 300; //начало копирования по y области
  R := 100; //размер квадратной области экрана
  Image1.Height:= R;
  Image1.Width:= R;
 
  Bitmap := TBitMap.Create;
  Bitmap.Width := R;
  Bitmap.Height := R;
  BitBlt(Bitmap.Canvas.Handle, 0, 0, R, R, GetDC(0), x1, y1, SRCCOPY);
 
  sum:=0; kol:=0; tekz:=0;
   for i := 0 to Bitmap.Height - 1 do //высота
    for j := 0 to Bitmap.Width - 1 do
      sum := sum + GetRValue(Bitmap.Canvas.Pixels[j, i]); //подсчет красного оттенка каждого пикселя (сумма)
  kol := R * R; //количество пикселей
  tekz := sum div kol; //среднее значение красного у пикселя
  Label1.Caption :='R текущее = '+ IntToStr(tekz);
 
  if sh > 1 then begin
   koef:= tekz - prz; //на столько изменилось разность вобщем
   Label3.Caption :=('R изменилось на = '+ IntToStr(Abs(koef))+' единиц');
 
    case Abs(koef) of
    0..10: Form1.Color:= clBtnFace;  //мало измений событий можно не вешать
    11..100: Form1.Color:= clYellow;  //сюда события вешаеш
    101..255: Form1.Color:= clRed; //в зависимости от силы изменения
    end;
  end;
 
  Bitmap.SaveToFile('Screen.bmp'); //это убрать
  Image1.Picture.LoadFromFile('Screen.bmp'); //это убрать
  Bitmap.Free;
end;
 
end.