RichEdit : Текст с новой строчки!

[Fezilk]

Здравствуйте!

Нужно, чтобы текст при нажатии на кнопку добавлялся с новой строчки.
Код такой:

With ChatPages[Form3.PageControl1.ActivePage.Tag]._rich do begin
SelAttributes.Color:=clBlue;
SelAttributes.Style := [fsBold];
SelText:= Form1.Edit1.Text + ' (' + TimeToStr(Time) + ' ' + DateToStr(Date) + ') ';
SelAttributes.Color:=clBlack;
SelAttributes.Style := [];
SelText := ChatPages[Form3.PageControl1.ActivePage.Tag]._memo.text;
end;

Но вместо

текст в Rich
676051 (тутвремя)
тут текст

получается

текст в Rich676051 (тутвремя) тут текст

Жду вашей помощи! Заранее спасибо)

[psycho-coder]

Держите

With ChatPages[Form3.PageControl1.ActivePage.Tag]._rich do begin
SelAttributes.Color:=clBlue;
SelAttributes.Style := [fsBold];
SelText:= Form1.Edit1.Text + ' (' + TimeToStr(Time) + ' ' + DateToStr(Date) + ') ' +#13#10;
SelAttributes.Color:=clBlack;
SelAttributes.Style := [];
SelText := ChatPages[Form3.PageControl1.ActivePage.Tag]._memo.text + #13#10;
end;

[SERG1980]

В том месте где хотите сделать перевод строки добавте #13#10
текст в Rich#13#10676051 (тутвремя)#13#10тут текст

[Fezilk]

огромное спасибо =)