Как определить цвет пикселя?

Image1.Picture.Bitmap.Canvas.Pixels[x,y]

var a:byte;
a:=Image1.Picture.Bitmap.Canvas.Pixels[x,y];  //Получить цвет пикселя.
 
Image1.Picture.Bitmap.Canvas.Pixels[x,y]:=clBlack; // Установить цвет.

procedure TForm1.Button1Click(Sender: TObject);
begin
with canvas do
begin
 brush.Color:=clred;
 rectangle(50,50,250,250);
 end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var c,i,j:word;
begin
 c:=Form1.Canvas.Pixels[60,60];
 for i:=70 to 100 do
 for j:=70 to 100 do
 Form1.Canvas.Pixels[i,j]:=clblack;
 Showmessage(inttostr(c));
end;

function TForm1.GetPixel(): Boolean;
var
  Color: TColor;
  R,G,B: Byte;
begin
  Image1.Picture.LoadFromFile('screen.bmp');
  Color:=Image1.Picture.Bitmap.Canvas.Pixels[X,Y]; //Пример: [20,40]
  R:=GetRValue(Color);
  G:=GetGValue(Color);
  B:=GetBValue(Color);
end;