delphi的错误，帮忙看一下

procedure Tfrmwjxz.btnwjxzClick(Sender: TObject); var FileHandle:integer;FileName:String;Filevar:TextFile; begin try with ADOQrywjxz do begin Close; SQL.Clear; SQL.Add('select ownerid,filename,document from documentmessage where ownerid= :oid'); Parameters.ParamByName('oid').Value := edtwjxz.Text; Open; self.SaveDilogwjxz.Filter:='文本文件|*.txt'; if SaveDilogwjxz.Execute then begin FileName:=SaveDilogwjxz.FileName; FileName:=FileName+' .txt'; if FileExists(FileName) then FileHandle:=FileCreate(pchar(FileName)); FileClose(FileHandle); AssignFile(Filevar,FileName); rewrite(Filevar); write(Filevar,self.ADOQrywjxz.FieldByName('document').Value ); closeFile(Filevar); showmessage('文件下载成功'); end; end except begin showmessage('文件下载失败'); end; end; end;

提示错误：project dazuoye.exe raised exception class EExternalException with message 'External exception C0000008'

你这格式太混乱了，看着头疼。
你做个断点，然后F9调试运行下，看看是在哪一步出的错。

你那个s2 := '01234543' 后面没有; ，这样会导致编译出错，语句没有结束啊。