Duplica informacion en archivo txt

[muppett]

Hola dias pasados me dieron estas instrucciones

Código Delphi [-]
Var
Lista:TStrings;
Begin
Lista:=TstringList.Create;
Lista.LoadFromFile('c:\archivo.txt');
Lista.AddStrings(Memo1.Lines);
Lista.SavetoFile('c:\archivo.txt');
Lista.Free

Lo ejecuta todo correctamente el unico problemas es q al abrir el archivo me repite la informacion por ejemplo en el memo esta

perro cafe
gato gris
caballo blanco

y en el achivo txt aparece

perro cafe
gato gris
caballo blanco
perro cafe
gato gris
caballo blanco

Ya me canse de buscar y no encuentro el error, me pordrian ayudar por favor.

Gracias