Ведение лога: создается файл с именем "l" вместо даты и содержимым 1 байт

        FILE *logFile = fopen((char *)Form_Settings->saveEdit->Text.t_str(), "w+");
        fprintf(logFile, (char *)FormatDateTime("\r\n;yyyy.mm.dd;hh:nn:ss:zzz;", Now()).t_str());
        fclose(logFile);
        ShowMessage("save");

AnsiString(Form_Settings->saveEdit->Text).c_str()

        FILE *logFile =  fopen(AnsiString(Form_Settings->saveEdit->Text).c_str(), "w+");
        fprintf(logFile, AnsiString(FormatDateTime("\r\n;yyyy.mm.dd;hh:nn:ss:zzz;", Now())).c_str());
        fclose(logFile);

        FILE *logFile = _tfopen(Form_Settings->saveEdit->Text.c_str(), L"w+");
        _ftprintf(logFile, FormatDateTime("\r\n;yyyy.mm.dd;hh:nn:ss:zzz;", Now()).c_str());
        fclose(logFile);

TStringList sLog = new TStringList;

if(FileExists("12345.log")) sLog->LoadFromFile("12345.log");

sLog->Add(DateTimeToStr(Now()) + " : " + "Описание действия");

sLog->SaveToFile("12345.log");
delete sLog;

#include <System.IOUtils.hpp>
 
TStreamWriter *sw;
sw = TFile::AppendText("12345.log");
sw->Write(FormatDateTime("\nyyyy.mm.dd;hh:nn:ss:zzz;", Now()));
delete sw;

#define CNTDAY 7
void __fastcall TfOption::Log(AnsiString s,int level)
{
  FILE *f;
  AnsiString nf;
  AnsiString 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);//Memo жля лога в основной программе
    try {
      if (bUseLogFile) {
        s = s + "\n";
        nf = ExtractFilePath(ParamStr(0))+"log\\";
        Sysutils::ForceDirectories(nf);
        t = ExtractFileName(ParamStr(0));
        nf = nf + t.Delete(t.Length()-4,4);
        t = nf + "_"+ DateToStr(Now())+".log";//получается файл типа NAMEPROG_15.08.2014.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;
    }
  }
}
 
class TfOption : public TForm
{
  ...
  bool bUseLog;
  int  iLevelLog;
  bool bUseLogFile;
  ...
}