Найти в memo определёные фразы

[maks5]

Помогите пожалуйста
Нужно в memo заменить сразу несколько фраз, если одной фразы там нету чтоб ошибки не было просто пропустила и искала следующие

[Человек_Борща]

А ваши наработки где?

[JUDAS]

var S,substr : string;
     p,l : integer;
begin
 substr := 'ищем';
 S:=memo1.text;
 p:=0; l := LenGth(substr);
 repeat
  p:=Pos(substr,S);
  if p>0 then
  begin
   Delete(S, p, l);
   S:=copy(S,1,p)+' текст замены '+copy(S,p+1, LenGth(S)-p);
  end;
 until  p=0;
 memo1.text := S;