[s0Creator]

Один перевод строки обеспечивает writeln
А избавиться от второго можно так:

Код:

   for i:=0 to Memo1.Lines.Count - 1 do // строки нумеруются с нуля
   writeln(f, Memo1.Lines[i]);

Кстати сохранять можно и проще

Код:

Memo1.Lines.SaveToFile(fName);