[Страдалецъ]

Код:

for i:=0 to memo1.Lines.Count do begin

             write(f2);
             end;

Это прямо уличная магия. Сколько пустоту ни записывай, все равно будет пусто
ПС: Мемо имеет собственные методы сохранения в файл, так-что все можно сделать одной строчкой.