[Song]

Код:

Procedure MySave(FName: String; Str: TStrings);
Var Str2: TStringList;
Begin
 Str2:=TStringList.Create;
 With Str2 Do
  try
   LoadFromFile(FName);
   AddStrings(Str);
   SaveToFile(FName2);
  finally
   Free;
  end;
End;

....

MySave('1.txt',Memo1.Lines);