제가 한번 만들어 봤습니다.비교해서 참고하세요.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  FILE *fp;
  fp=fopen("c:\\samfile.txt","wt");
  if(!fp){
    ShowMessage("파일이 열리지 않았습니다.");
    return;
  }
  int Col = Query1->FieldCount; //필드의 갯수
  while(!Query1->Eof){
    AnsiString temp="";
    for(int i=0;i<Col;i++){
      temp += Query1->Fields->Fields[i]->AsString;
      if(i<Col-1){
        temp += ",";
      }
    }
    temp += "\n";
    fputs(temp.c_str(),fp);
    Query1->Next();
  }
  fclose(fp);
  ShowMessage("done!");
}

멘땅에 헤딩 님이 쓰신 글 :
: void __fastcall TForm1::Button1Click(TObject *Sender)
: {
:         int i,  Col;
:         AnsiString Tmp,Str;
:         FILE *fp;
:
:         if ((fp = fopen("c:\samfile.txt", "wb")) == NULL)
:         {
:                 ShowMessage("파일이 열리지 않았습니다.");
:         }
:
:         Col = Query1->FieldCount; //필드의 갯수
:
:         while(!Query1->Eof)
:         {
:            for (i = 0; i < Col; i++)
:            {
:              Tmp = Query1->Fields->Fields[i]->AsString;
:              Str = Str + ", " + Tmp;
:            }
:         fwrite(&Str, sizeof(Str), 1, fp);
:         Query1->Next();
:         }
:         fclose(fp);
: }
:
: --------------------------------***
: fwrite(&Str, sizeof(Str), 1, fp)이 부분에서 제가 sizeof부분을 잘못 설정해서
: 자꾸 쓰레기값이 들어가는것 같은데..제 능력으로는 해결하기가 벅차네여..
: 고수님들의 도움이 절실히 필요합니다..도와주십시여..