[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?

[Luckie]

Wenn du es selber eingibst, warum drückst du nicht zweimal Return?

[-=IOI=-]

die erste der jeweils zwei zeilen gebe ich nicht selbst ein. diese wird automatisch erzeugt

//------------------------

habe festgestellt, dass dieses und andere kleine probleme nicht auftreten, wenn ich an diversen stellen ein showmessage einbaue.
es kommt einem so vor, als wäre es ein zeit problem. also das aufruf a lange dauert und aufruf b, der danach kommt, "schneller" fertig ist und deshlab auch zuerst erscheint (in meinem fall die leerzeile).

aber eigentlich kann das ja nicht sein, oder?