이렇게 한번 해보세요...
대충 이런 순서 입니다...에러나시면 고쳐서 사용하세요...


버튼 이벤트에서....

var
  sFile : TextFile;
    FileDir : String;
  
begin

  FileDir := 화일의 경로와화일명(OpenDialog에서나 고정경로로)

  DBOpen로직...
  

  try
      AssignFile(sFile, FileDir);
      ReWrite(sFile);
      First;
      
     while Not(EOF) DO
       begin
        Writeln(sFile,
                Format('%-9s',[FieldByName('mr_users').AsString])+'|'+
                ...
                Format('%-21s',[FieldByName('sys_ver').AsString]));
                              자리수
        NEXT;
       end;    
      CloseFile(sFile);
    except
     begin
       MessageDlg('파일 생성에 실패하였습니다.',mtError, [mbOk],0);
       Exit;
     end;

end;