[TRichEdit] leere Zeile einfügen

[-=IOI=-]

Hallo,

ich habe folgendes Problem.

Ich habe eine RichEdit Komponente, in die ich Text eingebe (immer zwei Zeilen untereinander, dann eine Leerzeile).

Beispiel:

Delphi-Quellcode:

text abcde
test bla

text jdcuidn
test uff

Zur Realisierung hab ich das OnKeyDown des RichEdit bearbeitet

Delphi-Quellcode:

procedure TForm1.MemoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    AddText(user + ' >',Memo);
  end;
end;

und die procedure AddText sieht so aus

Delphi-Quellcode:

procedure AddText(text: String; Feld: TRichEdit);
begin
  Feld.Lines.Add('');
  Feld.Lines.Add(text);
  Feld.SelStart := length(Feld.Text);
  Feld.SelAttributes.Size := 8;
  Feld.SelAttributes.Style := [];
end;

Das Ergebnis sieht dann aber leider so aus

Delphi-Quellcode:

text abcde
test bla
text jdcuidn

test uff

Was mache ich falsch?