//제가 전에 했던 코딩을  올려드립니다..  허접하지만...


procedure TFORM1.btStartClick(Sender: TObject);
var RecCount, cnt : Integer;
    sFile : TextFile;
    FileDir : String;
begin  

with Query do
  begin
   //DB 오픈 (원하는 DB를 ...
    Close;    
    SQL.Clear;
    SQL.Add(' Select *  from  테이블명  ');
    SQL.Add(' Where 조건'  );
    Open;
    first;
  try
      AssignFile(sFile, FileDir);  //FileDir :생성위치위치...  
      ReWrite(sFile);
      First;  //자료를 처음으로...
      cnt := 0;

     while Not(EOF) do
      begin
        inc(cnt);
              
        Writeln(sFile,
                Format('%-9s',[Query.FieldByName('AAA').AsSrting])+  //9자리에 찍겠다는 의미...
                Format('%-21s',[Query.FieldByName('BBB').AsSrting]));

        NEXT;
       end; // while end... 0
      CloseFile(sFile);
    except
     begin
       MessageDlg('파일 생성에 실패하였습니다.',mtError, [mbOk],0);
       Exit;
     end;
   end; // try end..
end;
end;

DataPump 이용해보세요~