IdFtp.put 问题(100分)

程序的设计是:首先使用IdFtp控件连接ftp服务器,连接成功后在本地创建一个文本文件,
最后用IdFtp.put函数上传这个文件.
问题是:程序在多台电脑上运行无故障.但是在有一台电脑上出错,错误信息:
当程序执行到put函数是,出现异常:"open file error". 可以肯定的是:ftp连
接成功,所创建的文本文件可正常打开,电脑上应该没有病毒.
如果没有答案,给个思路也热烈欢迎.
谢谢.

那个你的文件是不是读锁或写锁状态
贴出部分代码看看

代码如下:
IdFtp.User := 'AAA';
IdFtp.Password := 'BBB';
IdFtp.Connect(true);
IdFtp.TransferType := ftASCII;

AssignFile(sendFile,fileName);
rewrite(sendFile);
writeln(sendFile,'1111111111111');
writeln(sendFile,'2222222222222');
writeln(sendFile,'3333333333333');
closeFile(sendFile);

try
IdFtp.Put(fileName,fileName,false);
except
on E:Exception do
begin
showmessage(E.Message);
IdFtp.Disconnect;
end;
end;
erase(sendFile);