Selecionar texto a partit do cursor do texto no richedit

[vms]

Olá pessoal, seguinte

Tenho 2 Richedit simulando um editor de texto com 2 colunas.

Preciso clicar em um ponto do texto do 1º Editor e move o texto abaixo do cursor para o 2º Editor.

alguém sabe como selecionar apenas o texto abaixo do cursor do Editor?

Desde já agradeço.

[Jhonas]

Basta dar um clique duplo com o mouse na parte do texto do RichEdit1 e o mesmo sera copiado para o RichEdit2

procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   RichEdit2.SelText := RichEdit1.SelText;
end;

abraço