Insertar al final de RichEdit

[jorodgar]

procedure TForm1.Button2Click(Sender: TObject);
var
n : integer;
start:integer;
begin
// Busca el Texto
start:=Length(RxRichEdit1.Text);
RxRichEdit1.Lines.add('hola soy yo ');

n :=RxRichEdit1.FindText('',start,Length(RxRichEdit1.Text),[]); // [stMatchCase]);
// Encontrado?

while n>-1 do begin
showmessage(intTostr(n));
// Marcar el texto
RxRichEdit1.SelStart := n;
RxRichEdit1.SelLength := Length('');
// Sustituirlo...
Clipboard.Assign(Image3.Picture);
RxRichEdit1.PasteFromClipboard;
n :=RxRichEdit1.FindText('',start,Length(RxRichEdit1.Text),[]); // [stMatchCase]);
end;
end;