TRxRichEdit. Ultima linea sin dejar el foco en él.

[jorodgar]

procedure TForm1.Button1Click(Sender: TObject);
begin
RxRichEdit1.HideSelection:=false;
RxRichEdit1.lines.add(edit1.text);
end;