Сохранение содержимого БД в формат CSV

void __fastcall TMainForm::ExportCSVFile()
{
 TStringList *list = new TStringList();
 TStringList *titlegrid = new TStringList();
 list->Clear();
 titlegrid->Clear();
 AnsiString ghj,txt;
 int a = 0;
 ADOQuery1->DisableControls();
 
 for(int b=0; b<DBGrid1->Columns->Count; b++)
   {
 
     titlegrid->Add(DBGrid1->Columns->Items[b]->Title->Caption);
 
   }
 
    ghj = titlegrid->Text;
    ghj = StringReplace(ghj,"\r\n",";",TReplaceFlags() << rfReplaceAll);
    list->Add("");
    list->Add("№;"+ghj);
    ADOQuery1->First();
    while(!ADOQuery1->Eof)
    {
      txt = "";
      a++;
      for(int i=0; i<DBGrid1->Columns->Count;i++)
      {
       txt += ADOQuery1->Fields->Fields[i]->AsString+";";
      }
      txt = IntToStr(a)+";" + txt;
      list->Add(txt);
      ADOQuery1->Next();
    }
  
  ADOQuery1->First();
  ADOQuery1->EnableControls();
  AnsiString stroka = StringReplace(Now().TimeString()+"_"+ Now().DateString(),":","_",TReplaceFlags() << rfReplaceAll)+".csv";
  String WayToBase = ExtractFilePath(Application->ExeName)+stroka;
  list->SaveToFile(WayToBase);
  ShellExecute(Handle,"open",WayToBase.c_str(), NULL,NULL,SW_RESTORE);
  delete list;
  list = NULL;
  delete titlegrid;
  titlegrid = NULL;
 
}