подщитать колличество пикселей определённого цвета можно через цикл... так... первое что в голову пришло
Код:
var
w,h,i:integer;
begin
h:=1;
i:=0;
for h:=1 to image1.height do begin
for w:=1 to image1.width do begin
if image1.canvas.pixels[w,h]=clBlack
then
i:=i+1;
end;
end;
showmessage(inttostr(i));
end;