разбор строк в memo и массив элементов

[dima1208]

Добрый день, уважаемые форумчане.
Прошу помощи в следующем вопросе:
Есть memo, в нем 5 строк по 8 символов (байт):

00001111
11110000
10101010
01010101
11111111

Также имеется массив из Shape такого же вида: arr[1..5, 1..8].

Нужно проанализировать строки в мемо, и если 1 то закрасить соответсвующий shape черным. Если 0 - то оставить белым.

Я так понимаю что нужно 2 цикла использовать

for i:=1 to 5 do begin
 for j:=1 to 8 do begin

 end;
end;

а что в циклах написать ничего не могу придумать...
Заранее спасибо!

[newerow1989]

uses ExtCtrls;

var Shape:array[1..5,1..8] of TShape;

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
   For i:=1 to 5 do
      For j:=1 to 8 do
      begin
         Shape[i,j]:=TShape.Create(Application);
         Shape[i,j].Parent:=Form1;
         Shape[i,j].SetBounds((j-1)*20,(i-1)*20,18,18);
      end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j,mi,mj:integer;
    s:string;
begin
   mi:=Memo1.Lines.Count;
   If mi>5 then
      mi:=5;
   For i:=0 to mi-1 do
   begin
      s:=Memo1.Lines[i];
      mj:=Length(s);
      If mj>8 then
         mj:=8;
      For j:=1 to mj do
         If s[j]='1' then
            Shape[i+1,j].Brush.Color:=clBlack else
            Shape[i+1,j].Brush.Color:=clWhite;
   end;
end;

[dima1208]

Огромное спасибо, то что нужно!)))

[newerow1989]