procedure TForm_ABD72710U.BitBtn1Click(Sender: TObject);
var
  MyFile            : TextFile;
  PathName          : String;
  Field1,  Field2   : String;
begin
   SaveDialog1.FileName := PathName;
   if SaveDialog1.Execute then
   begin
     try
       PathName := SaveDialog1.FileName;
       AssignFile(MyFile,PathName);
       Rewrite(MyFile);
       Query1.First;
       repeat
         Field1  := Query1.FieldByName('aaa').AsString;
         Field2  := Query1.FieldByName('bbb').AsString;
         WriteLn(MyFile, Field1, Field2);
         Query1.Next;
       until Query1.EOF = True;
     finally
       CloseFile(MyFile);
     end; // Try...Finally end
   end;
end;

가르쳐 주신 것을 아래와 같이 고쳐서 했거든요?
SaveDialog는 뭔지 몰라서 헷갈려서 떼어내고...그냥 제맘대로 고쳤습니다.
Query1에서 자꾸 안넘어가구 뭔지도 모르다가...대충 통밥으로 찾아보니깐 컴포넌트더군요. 그것도 삽입해서 데이타 셋 맞춰주고...
컴파일은 다 넘어갔습니다.
근데, 버튼을 누르니깐

" Project test.exe raised exception class EDatabaseError with message 'Query1:Cannot perform this operation on a closed dataset.' Process stopped. Use Step or Run to contine..."

라구 디버거가 뜨네요.

인스펙터는  Field1  := Query1.FieldByName('aaa').AsString; 이부위에서 멈추네요.

참고로 DB 에는 많은 row들이 있지만 필요에 의해 한 5개만 Grid로 가져왔고요, 5개의 필드 중에는 '숫자'와 '알파','메모' 등이 있지만 테스트를 위해 '알파'만 두개 아래 코딩처럼 설정했어여...

좀 더 가르쳐 주시면 감사하겠습니다.
지난 답변도 감사합니다.


var
  MyFile            : TextFile;
  //PathName          : String;
  Field1,  Field2   : String;
begin
  // SaveDialog1.FileName := PathName;
   //if SaveDialog1.Execute then
   begin
     try
       //PathName := SaveDialog1.FileName;
       AssignFile(MyFile,'c:data.txt');
       Rewrite(MyFile);
       Query1.First;
       repeat
         Field1  := Query1.FieldByName('aaa).AsString;
         Field2  := Query1.FieldByName('bbb').AsString;
         WriteLn(MyFile, Field1, Field2);
         Query1.Next;
       until Query1.EOF = True;
     finally
       CloseFile(MyFile);
     end; // Try...Finally end
   end;

end;

Query1 에다가 프로퍼티 설정(DB연결) 을 안해줘서 그렇네요.
근데 다음 에러가 다음 에러는 메모리 에러(insufficient memory for dis operation  )가 납니다.

다 해결했어여...더 답변 안해주셔도 됩니다.
감사합니다. 여러분