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

[我不是程序员]

代码：
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;
出现问题的地方标出来了，请高手帮忙解决

[我不是程序员]

有没有大侠帮忙分析一下啊，帮托啦

[van163]

打开文件 F的代码是哪句呢？好象没有看到？

[van163]

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

[cdchq]

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