[DELPHI]: RichEdit e sostituzione

[peste1]

Ciao a tutti,
utilizzo questo codice per effettuare la sostituzione di alcune parti di testo in un RichEdit.

procedure TfPrincipale.Sostituisci(trova, sostituisci: string);
 var n: integer;
begin
 n := RichEdit1.FindText(trova, 0, Length(RichEdit1.Text), [stMatchCase]);
 if n > - 1 then
 begin
  RichEdit1.SelStart := n;
  Richedit1.SelLength := Length(trova);
  RichEdit1.SetSelTextBuf(PAnsiChar(sostituisci));
 end;
end;

Avrei bisogno però che effettuasse tutte le sostituzioni nel testo e non solo la prima. Come potrei fare?