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;