TRichEdit: eingefügter Eintrag erzeugt Zeilenumbruch

[turboPASCAL]

Delphi-Quellcode:

procedure MemoAddLineText(Memo: TMemo; LineIndex: Integer; Text: String);
begin
  if LineIndex < Memo.Lines.Count then Memo.Lines[LineIndex] := Memo.Lines[LineIndex] + Text
   else Memo.Lines.Add(Text);
end;

procedure TFormX...
begin
  memo1.Clear;
  memo1.lines.add('Hallo');
  MemoAddLineText(memo1, 0, ' du !');
end;