El problema es que usa el método AddStrings de la lista, por eso
añade al archivo lo que hay en el memo !!
Para leer:
Código Delphi
[-]
Var
Begin
Memo.lines.LoadFromFile('c:\archivo.txt');
end;
Código Delphi
[-]
Var
Begin
Memo.lines.SaveToFile('c:\archivo.txt');
end;
y si necesitas copiar de uno a otro:
Código Delphi
[-]
Var
Begin
Memo.lines.Assign(Lista); <<< Copiar todo, no añadir
end;
Saludos