buscar mas de una palabra en memo y eliminar

[jonydread]

amigos queria saber si se puede buscar mas de una palabra a la vez en un memo y eliminar
se que se realiza de esta forma mas o menos

Código Delphi [-]
 For l:=0 to memo1.Lines.Count - 1 do
 if pos('palabra',memo1.lines[l]) > 0 then
 begin
memo1.Lines.Delete(l);

o debo realizar dos veces el mismo codigo si quiero buscar mas palabras??

lo que quiero hacer es que al cargar texto al memo la palabra 1, palabra 2 y palabra 3 queden siempre al ultimo y el metodo que utilizare es eliminarlas y agregarlas al final

saludos!!