[http://neten.org]

Вот проект. Как в массив засунуть я думаю обьяснять не нада.
Если репайнт поставить после цикла строки то будет построчно выводить картинку:

for y:=0 to (im_h-1) do
begin
for x:=0 to (im_w-1) do
begin
r:= readByte(res);
r:=(r) and (255);
g:= readByte(res);
g:=(g) and (255);
b:= readByte(res);
b:=(b) and (255);
setColor(r, g, b);
plot(x, y);
end;
repaint;
end;