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

[jorodgar]

procedure TForm1.GoXYMemo(Memo:TRxRichEdit;Linea,Columna:integer);
begin
with Memo do
begin
SelStart:=0;
SelLength:=0;
SelStart := Columna+Memo.Perform(EM_LINEINDEX, Linea, 0);
SelLength:=0;
SetFocus;
end;Mi problema es que quiero posicionarme en una determinada linea del TRxRichEdit sin que luego me deje el foco en el objeto.
Si elimino la linea SetFocus; no me sirve porque no me posiciona donde yo quiero.
Y tampoco me sirve hacer un focus donde yo deseo tras llamar la función, ya que en ese TRxRichEdit escribirán mas usuarios. La idea del TRxRichEdit es una ventana del chat.
Se os ocurre algo ?

[jorodgar]

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