[Neftali [Germán.Estévez]]

Éste código te sustituye un texto por otro; En éste caso es la primera ocurrencia, basta con que lo incluyas en un While para que lo haga con todas las existentes.

Código Delphi [-]
 var
   n : integer;
 begin
   // Busca el Texto
   n :=RichEdit1.FindText('Cliente',0,Length(RichEdit1.Text),[stMatchCase]);
   // Encontrado?
   if n > -1 then begin
     // Marcar el texto
     RichEdit1.SelStart := n;
     Richedit1.SelLength := Length('Cliente');
     // Sustituirlo...
     RichEdit1.SetSelTextBuf(PAnsiChar('AAAAA'));
   end;