grid에 조회된 내용을 excel파일로 저장하려 했더니 이런 메시지가 보여집니다.

ACCESS violartion address 00490IDA in module 'Pi5040.exe'Read of address 00000024.



무엇을 어떻게 수정해야 할까요?



if Not fdm1.qrycs36lr.Active then exit;

if fdm1.qrycs36lr.RecordCount < 1 then

begin

showmessage('자료가 없습니다.');

exit;

end;

filename := '조기경보조회법인.xls';

GridXLS1.DBGrid := DBGrid1;



SaveDialog1.FileName := ExtractFileName(filename);

SaveDialog1.InitialDir := ExtractFilePath(excel_path +'doc');

if SaveDialog1.Execute then

begin

Panel19.visible := True;

try

Application.ProcessMessages;

GridXLS1.FileName := SaveDialog1.FileName; // 출력할 xls 파일명 지정

GridXLS1.ExportToExcel;

finally

Gauge1.progress := 0;

Panel19.visible := False;

end;

end;