fehler beim einfügen in TMemo

[Björn Ole]

Wenn ich Dich richtig verstanden habe, gehts nur um den Zeilenumbruch?

Delphi-Quellcode:

procedure TEditor.Button1Click(Sender: TObject);
var
 i,y : integer;
 s: string;
begin
  s:=''; 
  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
        s := s +'0,'
      else
        s := s +'0';
    end;
  end;
  Memo1.Lines.Add('BILD'+InttoStr(Bild)+' : Array [0..26] of Byte = ('+s+')');
end;