[Janom]

Кол-во пикселей:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  CurvCol:TColor;
  i,j,pxCount:Cardinal;
begin
CurvCol:=RGB(0,0,0);
pxCount:=0;
Image1.Canvas.FillRect(Image1.ClientRect);
Image1.Canvas.Pen.Color:=CurvCol;
Image1.Canvas.LineTo(Image1.Width,Image1.Height);
for i:=0 to Image1.Width do
    for j:=0 to Image1.Height do
        if Image1.Canvas.Pixels[i,j]=CurvCol then pxCount:=pxCount+1;
Form1.Caption:=IntToStr(pxCount);
end;