buscar mas de una palabra en memo y eliminar

[jonydread]

amigo ecfisa con el
procedure BorradasAlFondo
como puedo hacerlo si una de las palabras no existe la agrege de igual manera
por ejemplo

mi texto texto texto
texto
palabra 3

y quede

mi texto texto texto
texto
palabra 1
palabra 2
palabra 3

he probado asi bueno de muchas formas pero es el mismo resultado o peor

Código Delphi [-]
  for i:= Low(Palabras) to High(Palabras) do
    for j:= 0 to Texto.Count -1 do
      if Pos(Palabras[i], Texto[j]) <> 0 then
      begin
      Texto.Delete(j);
      Texto.Add(Palabras[i]);

       end;

muchas gracias!!