Hogyan tudnék egy 100*100as bitmapot "feltölteni"?

Elég egyetlen while szerintem. Mivel nyelvet nem írtál Delphi-ben írtam pár sort:

procedure TForm1.Button1Click(Sender: TObject);

var sor, oszlop, szam : integer;

f : Textfile;

begin

oszlop := 0;

sor := 1;

AssignFile(f, 'test.txt');

Reset(f);

while not Eof(f) do

begin

ReadLn(f, szam);

Inc(oszlop);

if oszlop = 100 then

begin

Inc(sor);

oszlop := 0;

end;

if not Odd(szam) then PaintBox.Canvas.Pixels[sor, oszlop] := clRed;

end;

CloseFile(f);

end;