Запись AnsiString в файл

Memo1->Lines->Add((AnsiString)(Now())+" нажали на кнопку");

Memo1->Lines->SaveToFile("My_program.log");

TStringList *sl;
sl=new TStringList();
sl->Add(((AnsiString)(Now())+" нажали на кнопку");
sl->SaveToFile("My_program.log");
delete sl;

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// путь и имя файла для сохранения в каталоге, откуда запущен *.exe
AnsiString file = ExtractFilePath(Application->ExeName) + "\\log.txt";
TStringList *list1 = new TStringList;  // 1й TStringLis
list1->Add(AnsiString(Now()) + " text text"); // бла бла
if (FileExists(file) == false) // проверяем наличие файла
    {
    list1->SaveToFile(file); // файл не найден, значит сохраняем как есть
    }
else
    { // есть файл
    TStringList *list2 = new TStringList; // 2й TStringLis для существующего файла
    list2->LoadFromFile(file); // загружаем существующий файл
    list2->Add("***************************************"); // вроде как разделить добавляем
    list2->Text = list2->Text + list1->Text; // к загруженному файлу добавляем новый записи
    list2->SaveToFile(file); // сохраняем
    delete list2; // чистим за собой
    }
delete list1; // чистим за собой
}
//---------------------------------------------------------------------------