memo.text:='text1'+#10#13+'text2'; klappt nicht.

[PierreB]

Das wäre noch ne Möglichkeit, aber eigentlich ist es ja egal wie du es machst.

Delphi-Quellcode:

var
  Data : array [1..10] of String;

procedure TForm1.FormCreate(Sender: TObject);
begin
Data[1]:='bla';
Data[2]:='blu';
Data[3]:='bli';
//etc.
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
for i := 0 to 9 do
memo1.lines.add(Data[i]); 
end;