Alguien sabe un modo mas efectivo de hacer esto con el texto de un memo

[cocute]

Lo que hago es cargar un fichero de texto de unas 700 lineas en un memo y me interesa quitale lineas por arriba y por abajo y luego reemplazar alguna palabra. Pero la eficiencia es nula y le cuesta bastante hacerlo.
Me podeis decir cual seria la forma correcta de hacerlo para que vaya rápido.
Quizas usando otro componente que no sea el memo clásico?

//busco en el memo desde el principio una linea que coincida con PALABRA y borro todas las anteriores lineas
while Memo1.Lines[0]<>'PALABRA' do memo1.Lines.Delete(0);

//borrar todas las lineas del memo a partir de la 127 en adelante.
for I := 0 to Memo1.Lines.Count do memo1.Lines.Delete(127);

//recorrer las lineas que quedan y sustituir Palabra1 por Palabra2
for x := 0 to Memo1.Lines.Count do
memo1.lines[x]:= StringReplace( memo1.Lines[x],'palabra1','palabra2',[rfReplaceAll]);

gracias