如何保存一幅只有一个数字的图片的特征值

怎么保存一幅只有一个数字的图片的特征值
一幅图片，只有黑白两色，把它分成5*5的距阵，怎么保存它的特征值呢？
各位高手们能否提示下的哦？最好的是能给出代码。

[解决办法]

for x := 0 to aBmp.height -1 do
for y := 0 to aBmp.width -1 do
begin
if aBmp.Canvas.Pixels[x, y] = clBlack then
aArray[x,y] := 1
else
aArray[x,y] := 0;
end;