Log-файл к программе

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int iNom;
String Rez_f = "Rezylt_f"; // Файл с данными
iNom = FileCreate(Rez_f);//Создаём файл Rez_f
 
 if(iNom==-1)
   {
    ShowMessage("Файл не удалось создать");
   }
//Объявляем переменную Sx_1 и записываем в неё данные
 String Sx_1 = "Запись в файл 67576";
 
//Копируем данные из переменной Sx_1 и записываем в неё данные
 
 FileWrite(iNom, Sx_1.c_str(), Sx_1.Length());
//Закрываем файл Rez_f с номером iNom
 FileClose(iNom);
 
//Открываем файл Rez_z в режиме только чтения
   iNom = FileOpen(Rez_f,fmOpenRead);
   int FileLength = FileSeek(iNom, 0, 2); // определяем длину файла
   FileSeek(iNom,0,0); // переходим на начало файла
   char* Sx_2 = new char[FileLength+1];//Объявляем ещё одну переменную
   FileRead(iNom, Sx_2, FileLength); // читаем
   Sx_2[FileLength] = '\0'; // в конец добавляем \0
   ShowMessage(AnsiString(Sx_2));
   FileClose(iNom);
   delete [] Sx_2;
   Sx_2 = NULL;
 
}
//---------------------------------------------------------------------------

FILE *logFile =  fopen("log.txt", "a+");
fprintf(logFile, AnsiString(FormatDateTime("dd.mm.yyyy hh:nn:ss\n", Now())).c_str());
fclose(logFile);

void __fastcall TfOption::Log(String s,int level)
{
  FILE *f;
  String nf;
  String t;
  int i;
  if (!bUseLog) return;//флаг использования лога
  if (level<=iLevelLog) {//уровень логирования
    t = DateTimeToStr(Now())+": ";
    for (i=0;i<level;i++) t = t + "  ";
    s = t + s;
    fMain->mLog->Lines->Add(s);//вывод в мемо на главной форме
    try {
      if (bUseLogFile) {//флаг использования логирования в файл
        s = s + "\n";
        nf = fMain->LogDir;//путь хранения логов
        Sysutils::ForceDirectories(nf);
        t = ExtractFileName(ParamStr(0));// определение имени лог-файла в формате progname_dd.mm.gg.log
        nf = nf + t.Delete(t.Length()-3,4);
        t = nf + "_"+ DateToStr(Now())+".log";
        f=fopen(t.c_str(),"a+");
        fwrite(s.c_str(),s.Length(),1,f);
        fclose(f);
        t = nf + "_"+ DateToStr(Now()-CNTDAY)+".log";//храним CNTDAY дней - константа
        if (FileExists(t))
        DeleteFile(t);
      }
    } catch (...) {
      bUseLogFile = false;
    }
  }
}

Log("400 Cервер обнаружил в запросе клиента синтаксическую ошибку "+sURL,0);

Log("Прошло времени "+FloatToStrF(d,ffNumber,5,2)+" сек",5);