Duplica informacion en archivo txt

[[Lepe]]

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