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

procedure TForm1.Button1Click(Sender: TObject);
begin
 
filename:= 'Äíåâíèê.txt';
 
if FileExists(filename)
then
 begin
 Assignfile(f,'c:\Äíåâíèê.txt');
 Append(f);
 writeln(f, memo1.text);
 closefile(f);
 end
else
begin
 Assignfile(f,'c:Æ\Äíåâíèê.txt');
 rewrite(f);
 writeln(f,memo1.text);
 closefile(f);
 end;

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

    //Здесь весь предыдущий текст в Мемо пропадает и вместо него
    //записывается текст строки datat.
    memo1.Text:=datat;

    //Чтобы строки добавлялись в Мемо и предыдущий текст не стирался, надо делать так:
    Memo1.Lines.Add(datat);

  //Очистка Мемо перед чтением из файла.
  Memo1.Clear;
  //Построчное чтение из файла и запись в Мемо.
  While not EOF(f) do
  begin
    //Читается очередная строка из файла.
    ReadLn(f,datat);
    //Чтобы строки добавлялись в Мемо, и предыдущий текст не стирался, делаем так:
    Memo1.Lines.Add(datat);
  end;
  //Закрытие файла.
  CloseFile(f);