Pixel/Flächen RGB Werte auslesen

[JCooper]

Hi,

ich lese mit folgender procedure die RGB Werte eines bestimmten Pixels aus.
x und y Koordinate wird über eine Editbox eingegeben.

Code:

procedure TForm1.Button2Click(Sender: TObject);
 var
  RGB : TColor;
  R,G,B : Byte;
  xZeiger : Integer;
  yZeiger : Integer;
begin
  xZeiger := StrToInt(edit1.text);
  yZeiger := StrToInt(edit2.text);
  RGB := Image1.Canvas.Pixels[xZeiger, yZeiger];
  R := GetRValue(RGB);
  G := GetGValue(RGB);
  B := GetBValue(RGB);
  Label1.Caption := Format ('[R, G, B] = [%d, %d, %d]',
                    [  R, G, B]);
end;

Ich möchte nun den RGB Wert eines ganzen 'Bereichs' haben (Mittelwerte aller Pixel in dem festgelegten Bereich), sprich eines 9 x 19 großen Bereichs.
Über die beiden Editboxen möchte ich eine PixelKoordinate eingeben und somit meinen Mittelpunkt bestimmen.

Bereich = vom Mittelpunkt aus, 4 Pixel nach oben, 4 nach unten, 9 nach rechts, 9 nach links


Hat jemand ne Idee?


grüße
JCooper