Duplica informacion en archivo txt

[German]

Pues veo (creo) que varios errores.. el primero es no utilizar directamente la funcion para cargar/guardar el contenido del memo a un archivo:

Código Delphi [-]
Memo1.Lines.LoadFromFile('C:\Archivo.txt');
Memo1.Lines.SaveToFile('C:\Archivo.txt');

De todas formas, si por la razon que sea quieres utilizar una variable, lo correcto seria:

Código Delphi [-]
Var
Lista:TStringList;
begin
Lista:=TstringList.Create;

//Para cargar
Lista.LoadFromFile('C:\Archivo.txt');
Memo1.Lines := Lista;

//Para guardar
Lista.Text := Memo1.Lines.Text;
Lista.SavetoFile('C:\Archivo.txt');

Lista.Free;
end;