///以下8Bit的位图个数= 16^
Bmp.PixelFormat := pf8bit;
Bmp.Width := 16;
Bmp.Height := 16;
for i := 0 to 15 do
for j := 0 to 15 do begin
if Canvas.Pixels[i * 10 + 5, j * 10 + 5] = 白色 then
Inc(白色Count) // Bmp.Canvas.Pixels[i, j] := clBlack
else Bmp.Canvas.Pixels[i, j] := clWhite;
end; // for J to do