Создание и запись в файл

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
String Path = "D:\\";
String FileName = "Test!!!!!!!!";
FileCreate(Path + FileName + ".txt");
Sleep(1000);
TStringList *l=new TStringList;
l->LoadFromFile(Path + FileName + ".txt");//вот тут ошибка
l->Add("блаблабла");
l->SaveToFile(Path + FileName + ".txt");
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
String Path = "D:\\";
String FileName = "Test!!!!!!!!";
TStringList *l=new TStringList;
l->LoadFromFile(Path + FileName + ".txt");
l->Add("Ñâûàâôûàâôûâôô");
l->SaveToFile(Path + FileName + ".txt");
}

AnsiString filename="Test.txt";
  TStringList *temp_log = new TStringList;
  if (FileExists(filename))
  temp_log->LoadFromFile(filename);
  temp_log->AddStrings(log);
  temp_log->SaveToFile(filename);
  log->Clear(); // очищаем список
  delete temp_log;  // удаляем указатель
  temp_log = NULL; // убираем мусор

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int FileHandle;//////////////////
String Path = "D:\\";
String FileName = "Test!!!!!!!!";
FileHandle=FileCreate(Path + FileName + ".txt");//////////////////
FileClose(FileHandle);//////////////////
TStringList *l=new TStringList;
l->LoadFromFile(Path + FileName + ".txt");//вот тут ошибка была
l->Add("блаблабла");
l->SaveToFile(Path + FileName + ".txt");
}