Hola jonydread.
La verdad no veo para nada claro que es lo que deseas hacer.
Si buscas eliminar una palabra del texto del memo, la solución que te dió
escafandra es la más adecuada. Y del mismo modo lo sigue siendo, si deseas agregar la palabra eliminada al final del memo.
Pero por otro lado, mirando el código que pusiste, dá la impresión que quisieras eliminar las líneas que contengan a la palabra y agregarlas al final (como comentas en la última parte de tu mensaje).
Si así fuera, podrías hacer:
Código Delphi
[-]
procedure BorradasAlFondo(Texto: TStrings; Palabras: array of string);
var
i,j: Integer;
s : string;
begin
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.Add(Texto[j]);
Texto.Delete(j);
end;
end;
Llamada:
Código Delphi
[-]
BorradasAlFondo(Memo1.Lines,['palabra_1','palabra_2','palabra_3',...'palabra_N']);
Saludos.