Memo Zeilen hart umbrechen?

[p80286]

Ich hab auch ein wenig gebastelt:

a) Der .Text scheint vollkommen unberührt von Umbrüchen;
b) sobald eine TStringlist oder ein .Savetofile genutzt wird "manifestieren" sich die Umbrüche.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Memo1: TMemo;             { ohne Wordwrap }
    Memo2: TMemo;             { mit Wordwrap }
    Label1: TLabel;           { autosize=false Wordwrap=false }
    Label2: TLabel;           { autosize=false Wordwrap=false }
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

  procedure init;
implementation

{$R *.dfm}

procedure init;
const
  tt='eins zwei drei vier fünf '#13#10'sechs sieben acht neun zehn'+
     #13#10+
     'elf zwölf dreizehn vierzehn fünfzehn sechzehn siebzehn zwanzig'+
     #13#10+
     'einundzwanzig zweiundzwanzig';
 begin
   form1.Memo1.Text:=tt;
   form1.Memo2.Text:=tt;
   form1.Label1.Caption:=form1.Memo1.Text;
   form1.Label2.Caption:=form1.Memo2.Text;
 end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  {Hier ändert sich nichts in der Darstellung}
  form1.Label1.Caption:=form1.Memo1.Text;
  form1.Label2.Caption:=form1.Memo2.Text;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  ll : tstringlist;
begin
  { Hier werden die Umbrüche übernommen }
  ll:=tstringlist.Create;
  ll.addstrings(form1.Memo1.lines);
  ll.AddStrings(form1.Memo2.lines);
  ll.SaveToFile('c:\temp\t1.txt');
  form1.Memo1.lines.SaveToFile('c:\temp\t2.txt');
  form1.Memo2.lines.SaveToFile('c:\temp\t3.txt');
  ll.free;
end;

end.

Gruß
K-H