将数据库记录以及出错信息写到两个文件的问题.提示i/o错误,在线等

if savedialog1.Execute then
begin
filename:=savedialog1.filename;
errname:='err'+filename;
AssignFile(F, filename);
Rewrite(F);    while not eof do
    begin
      isbn:=trim(FieldByName('isbn').AsString);
      with datam.queryweb1 do
      begin
        close;
        sql.Clear;
        sql.Add('select marcdata from v_book_ma where marc_isbn=''7501160317''');
        open;
        try
         findfirst;
        except
         showmessage('没有发现数据');
        end;
        if not bof then
        begin
          i:=RecordCount;
          First;
          while not eof do
          begin
            s:=trim(FieldByName('marcdata').AsString);
            Writeln(F, s);
            Next;
          end;
        end else
          begin
          title:=trim(FieldByName('book_name').AsString);
          bookno:=trim(FieldByName('book_no').AsString);
          se:=isbn+' '+title+' '+bookno;
          memo1.Lines.Add(se);
          end;
      end;
      next;
    end; CloseFile(F);
 AssignFile(FE,errname);
 Rewrite(FE);
 for i:=0 to memo1.Lines.Count do
  begin
    Writeln(F,memo1.Lines.Strings[i]);
  end;
 closefile(FE);
 showmessage('文件已创建');
 end;
end;当创建文件fe时,提示出错.为什么 应该如何解决
我是想当用户输入保存的文件名的时候,检索到的记录信息放到文件中,检索不到的记录信息放到err+用户输入的文件名的文件中.
或者同时写入,或者检索不到的信息先放到memo1中,在写入err文件