exception class EInouterror with message 'I/O erro 103'这样的错误是什么原因啊？

Question

代码：
procedure TForm1.Button1Click(Sender: TObject);
var
 msg:zmq_msg_t;
 msgp:zmq_msg_tp;
 len:Integer;
 content:AnsiString;
 F:TextFile;
begin
 if savedialog1.execute then
 begin
   msgp:=@msg;
   zmq_msg_init(msgp);
   zmq_recv(socket,msgp,0);
   zmq_msg_close(msgp);
   msgp:=@msg;
   zmq_msg_init(msgp);
   zmq_recv(socket,msgp,0);
   len:=zmq_msg_size(msgp);
   content:=AnsiString(copy(pchar(zmq_msg_data(msgp)),0,len));
   writeln(F,content);//         出问题的位置
   zmq_msg_close(msgp);
   while content<>'55AA55AA' do
   begin
     msgp:=@msg;
     zmq_msg_init(msgp);
     zmq_recv(socket,msgp,0);
     zmq_msg_close(msgp);
     msgp:=@msg;
     zmq_msg_init(msgp);
     zmq_recv(socket,msgp,0);
     len:=zmq_msg_size(msgp);
     content:=AnsiString(copy(pchar(zmq_msg_data(msgp)),0,len));
     writeln(F,content);//             出问题的位置
     zmq_msg_close(msgp);
   end;
   CloseFile(F);
 end;
 zmq_close(socket);
 zmq_term(context);
end;
出现问题的地方标出来了，请高手帮忙解决

Answer 1

AssignFile(F, savedialog1.FileName);
加上这句？

Answer 2

  AssignFile(F,savedialog1.FileName);
  writeln(F,content);// 出问题的位置