Компонент TImage

[Devoto]

Ув. эксперты подскажите как можно пощитать количество пикселей одного цвета на компоненте TImage?

[VVM]

Считывать поочередно все пиксели и сравнивать с эталоном цвета. Примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var
  I, J, Count: integer;
  Col: TColor;
begin
  Count := 0;
  Col := clBlue;
  for I := 0 to Image1.Height do
    for J := 0 to Image1.Width do
      if Image1.Canvas.Pixels[I, J] = Col then
        inc(Count);
end;