Hola.
Otra forma de reemplazar el texto buscado puede ser:
Código Delphi
[-]
procedure ReplaceAndSave(const Name, Old, New: string);
begin
with TStringList.Create do
try
LoadFromFile(Name);
Text:= StringReplace(Text, Old, New, [rfReplaceAll]);
finally
SaveToFile(Name);
Free;
end;
end;
Llamada:
Código Delphi
[-]
const
FNAME = 'C:\...\TU_ARCHIVO.TXT';
...
ReplaceAndSave(FNAME, Edit1.Text, Trim(Memo2.Text));
Saludos.