Table или Query =>*.txt

if (SaveDialog1->Execute())
   {
       TStringList *TempList = new TStringList; // declare the list
       try{
          //use the string list
          for (Table1->First();!Table1->Eof;Table1->Next())
          {
              TempList->Add(Table1->FieldByName("Name")->AsString+ "  "+
                            Table1->FieldByName("Capital")->AsString+ "  "+
                            Table1->FieldByName("Continent")->AsString);
          }

          TempList->SaveToFile(SaveDialog1->FileName);
       }
       __finally{
        delete TempList; // destroy the list object
       }

   }