создание текстового файла при старте программы

if (!FileExists("logfile.txt"))
{
  TStringList * LogFile = new TStringList;
  LogFile->Add("My Report Text");
  LogFile->SaveToFile("logfile.txt");
  delete LogFile;
}

if (!FileExists("log.txt"))
{
TStringList * LogFile = new TStringList;
LogFile->Add("Утилита Flash Cleaner");
LogFile->SaveToFile("LOG.txt");
delete LogFile;
}
if (!FileExists("spisok.txt"))
{
TStringList * ToDel = new TStringList;
ToDel->Add(spisok->Memo1->Text);
ToDel->SaveToFile("spisok.txt");
delete ToDel;
}
if (!FileExists("spisok.ini"))
{
TStringList * ToExp = new TStringList;
ToExp->Add(spisok->Memo2->Text);
ToExp->SaveToFile("spisok.ini");
delete ToExp;
}
LOG->LoadFromFile("LOG.txt");
memo->Text = LOG->Text;
}

TStringList * List = new TStringList;
if(!FileExists("log.txt"))
  {
    List->Clear();
    List->Add("Утилита Flash Cleaner");
    List->SaveToFile("LOG.txt");
  }
if(!FileExists("spisok.txt"))
  {
    List->Clear();
    List->Text = Memo1->Text;
    List->SaveToFile("spisok.txt");
  }
if(!FileExists("spisok.ini"))
  {
    List->Clear();
    List->Text = Memo2->Text;;
    List->SaveToFile("spisok.ini");
  }
delete List;
Memo1->Lines->LoadFromFile("LOG.txt");