написать?
для картинки 100x100 как-то так:
var
bp: tbitmap
pixels: array[0..99,0..99] of real;
i,j: integer;
begin
bp:=tbitmap.create;
bp.loadfromfile('c:\bitmap.bmp')
bp.width:=100;
bp.height:=100;
for i:=0 to 99 do
for j:=0 to 99 do
begin
pixels[i,j]:=rgb(255,255,255)/bp.canvas.pixels[i+1,j+1];
end;
bp.free;
end;
Должен получицца двумерный массиф, значения которого варьируюцца от 0 до 1 в зависимости от белизны соответствующего пикселя картинки. Что с этим массивом делать дальше - вы не написали.
Чтобы использовать изображения, размер которых отличается от 100х100, надо вспоминать динамические массивы и добавить несколько строк, на что у меня нет времени.
Делфей у меня нет под рукой, поэтому проверить нет возможности.