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;
Lista.LoadFromFile('C:\Archivo.txt');
Memo1.Lines := Lista;
Lista.Text := Memo1.Lines.Text;
Lista.SavetoFile('C:\Archivo.txt');
Lista.Free;
end;