Гистограмма изображения

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
  Buttons, ExtDlgs;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Image1: TImage;
    PaintBox1: TPaintBox;
    OpenPictureDialog1:TOpenPictureDialog;
    procedure Button1Click(Sender: TObject);
 
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
   Color: TColor;
  R,G,B,q: Byte;
  x,y,k : Integer;
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
 begin
If OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
 
   k:=0;
       //Под яркостью пикселя будем понимать среднее значение его цветовых компонентов(R+G+B)div3.
for x:=0 to 100 do
 for y:= 0 to 100 do begin
  q:=Image1.Picture.Bitmap.Canvas.Pixels[x,y];     // у меня только одно число а их должно быть R, G, B. не понимаю как их получить
  {Color:=Image1.Picture.Bitmap.Canvas.Pixels[x,y];
  R:= GetRValue(Color);
  G:= GetGValue(Color);
  B:= GetBValue(Color); }
  k:= k + q;           // числа суммирую для проверки
 end;
 Edit1.Text:= Inttostr(k);  //вывод для просмотра
 end;
 
 
end.

procedure TForm1.Button1Click(Sender: TObject);
begin
  If OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
  k:=0;
  //Под яркостью пикселя будем понимать среднее значение его цветовых компонентов(R+G+B)div3.
  for x:=0 to Image1.Width do
  for y:= 0 to Image1.Height do
   begin
    Color:=Image1.Canvas.Pixels[x,y];
    R:=byte(Color);
    G:=byte(Color shr 8);
    B:=byte(Color shr 16);
    k:= k + (R+G+B)div 3;           // числа суммирую для проверки
   end;
  Edit1.Text:= Inttostr(k);  //вывод для просмотра
end;