이렇게 한번 해보세요...

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

  
  FileDir := 이름 넣는 부분(폴더 포함)


   With Qurey do
     begin
      first;
    
    try
     while Not(EOF) do
      begin
       AssignFile(sFile, FileDir);// 'd:Test.txt');
       ReWrite(sFile);
       Writeln(sFile,
              Format('%-9s',[Qurey1필드명1.Value])+
              <중략 -9s는 9자리 >
              Format('%-1s',[Qurey1필드명n.Value])
                );
      NEXT;
      end;
      CloseFile(sFile);
    except
     begin
       MessageDlg('파일 생성에 실패하였습니다.',mtError, [mbOk],0);
       Exit;
     end;
    end; // try end..
    MessageDlg('파일['+FileDir+']을 생성 하였습니다.',mtInformation, [mbOk],0);
    end;
end;

이부분이 이해가 가질..않아서염..
Query1에 바로 필드명을 붙인다는게...
물론 에러구염.
제가 잘몰라서..이렇게 다시 한번 물어 봅니다.

Query 컴포넌트를 디자인 타임에 폼에 배치하신거라면
해당 컴포넌트를 더블클릭해 보시면 필드 에디터가 뜹니다.
거기에서 마우스 우측버튼을 눌러서 필드들을 추가해 주시면..

Qurey1필드명1 : TField;

로 생깁니다. 이걸 이용하는 거죠..

하지만 이단계를 거치지 않았다면..

Query1.FieldByName('필드명').asString;

이렇게 이용을 하셔야 겠죠..

그럼..