Запись в текстовый файл - не хочет дописывать строки - Delphi - Ответ 2922808

var
  Form1: TForm1;
  f: TextFile;
  fileName: string;
  datat: string;
 
  implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 filename:='c:\Äíåâíèê.txt';
 
  if FileExists(filename) then
  begin
 AssignFile(f,filename);
{ Rewrite (f);
  WriteLn(f,memo1.text);
 CloseFile(f);
}
 Append(f);
 WriteLn(f,memo1.text);
 ShowMessage('Äîçàïèñü ïðîèçâåäåíà óñïåøíî');
 ShowMessage(memo1.Text);
 CloseFile(f);
 end
 
 else
 
 begin
 AssignFile(f,filename);
  Rewrite (f);
  WriteLn(f,memo1.text);
 CloseFile(f);
 end;
 memo1.Clear;
 // ÷òåíèå
 {
 AssignFile(f,filename);
 Reset(f);
 While not EOF(f) do
 begin
  ReadLn(f,datat);
  ShowMessage(datat);
 end;
 CloseFile(f);
 }
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Clear;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
form1.Close;
 
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
filename:='c:\Äíåâíèê.txt';
AssignFile(f,filename);
 
if DeleteFile(filename) then
 ShowMessage('Óäàëåí óñïåøíî')
 else
 ShowMessage('Âñå åùå ñóùåñòâóåò');
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
filename:='c:\Äíåâíèê.txt';
AssignFile(f,filename);
 if FileExists(filename) then
  begin
   Reset(f);
   While not EOF(f) do
    begin
     ReadLn(f,datat);
     memo1.Text:=datat;
    CloseFile(f);
  end;
  end
  else
 ShowMessage('Ôàéë íå ñóùåñòâóåò');
end;

 While not EOF(f) do