Определение цвета конкретного пикселя в монохромном bitmap'е

[Cannibal]

Как в монохромном bitmap'е определить цвет конкретного пикселя и сооставить массав А[i,j], в котором А[i,j]=0 если цвета нет и 1 в противном случае.
например картинке
соответствует матрица

0 0 0 0 0 0 1 1
0 0 0 0 0 1 0 1
0 0 0 0 1 1 0 1
0 0 0 1 1 0 0 1
0 0 1 1 0 0 0 1
0 1 1 1 1 1 1 1
1 1 0 0 0 0 0 1
1 0 0 0 0 0 0 1

[Alar]

begin
if canvas.Pixels[1,2]=clyellow then
begin
 ShowMessage('RED COLOR');
end;

[Kotofff]

В цикле битмап "просматривать" :

for i:=0 to Bitmap.Height-1 do
  for j:=0 to Bitmap.Width-1 do
  if Bitmap.Canvas.Pixels[i,j] = clWhite 
     then ...белая точка... 
     else ....черная точка...

[_Engine_]

Все верно, только у предложенных способов есть явный недостаток - скорость работы
Дело в самом Canvas.Pixel, при обращении к нему вызывается метод SetPixel / GetPixel, в которые понапихано множество проверок и т.д. и т.п.
Чтобы повысить скорость приложения можно попробовать использовать метод Scanline. К тому же в справке есть хороший пример его использования.