Дозапись в текстовый файл

void __fastcall TForm1::Log1WriteTXT(AnsiString NewStr)
{
  FILE *f;
  AnsiString AsEnter=(char) (10);
  char *s =(NewStr+AsEnter).c_str();
  AnsiString Pat1=DateTimeToStr(Now().CurrentDate())+"Log1.txt";
  while ((f=fopen(Pat1.c_str(),"a+")) == NULL) {
    Memo1->Lines->SaveToFile(Pat1);
  }
  fwrite(s, sizeof(char), strlen(s), f) ;
  fclose(f);
}

TStringList *list = new TStringList;
AnsiString filename = "file.txt";
if(FileExists(filename) {
  list->LoadFromFile(filename);
}
list->Add("Добавляем строки");
list->Add("Добавляем строки");
list->Add("Добавляем строки");
list->Add("Добавляем строки");
list->Add("Добавляем строки");
list->Add("Добавляем строки");
list->Add("Добавляем строки");
list->SaveTofile(filename);
delete list;
list = NULL;

     FILE *fl ;
     if ((fl=fopen("test.txt","a+"))!=NULL)
     {   fwrite(Memo1->Text.c_str(), Memo1->Text.Length(), 1, fl) ;
         fclose(fl);
     }

 fwrite((Memo1->Text+"\n").c_str(), Memo1->Text.Length()+1, 1, fl) ;