работа с рисунком

[1o1man]

есть картинка, скажем черно белая
нужно определить размер (в процентах или в см^2, неважно) черного цвета

k:=0; all:=0;
b1 := Image1.Picture.Bitmap;
for x := 0 to b1.Height - 1 do
for y := 0 to b1.Width - 1 do
begin
if ***** = RGB(0,0,0) then inc(k);
inc(all);

вот что нужно в **** подставить? чтобы попиксельно считывать?

ну и потом result:=(k/all)*100;

[ArtInt]

Можно наверное так: (пишу по памяти)
var
b1: TBitmap;
///
b1:=TBitmap.Create;
b1 := Image1.Picture.Bitmap;
if b1.Canvas.Pixels[x, y] = clBlack then ........
///

b1.Free;

[1o1man]

спс, сделал