[M.A.D.M.A.N.]

Я бы так сделал:

Код:

var
  colorCount: array[TColor] of integer;
...
  for x...
    for y...
      inc(colorCount[bitmap.canvas.pixels[x, y]]);

Правда едрить сколько памяти оно сожрет.