fehler beim einfügen in TMemo

[Gehstock]

versuche mit

Delphi-Quellcode:

procedure TEditor.Button1Click(Sender: TObject);
var
 I,Y : Integer;
begin
 Memo1.Lines.Add('BILD'+InttoStr(Bild)+' : Array [0..26] of Byte = (');
  For I := 2 to 30 do
   Begin
   If (I <> 11) and (I <> 21) and (TPanel(FindComponent('Panel' + IntToStr(I))).Color = clBtnFace) then
    Begin
     If (I < 30)  then
      Memo1.Text := Memo1.Text +'0,'
     else
      Memo1.Text := Memo1.Text +'0'
    End;

rauskommen soll z.B.

BILD1 : Array [0..26] of Byte = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0);

rauskommen tut

BILD1 : Array [0..26] of Byte = (
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0);

was kann ich ändern