关于DELPHI7中idftp上传问题

[chinazhf]

请问idftp上传需要加保护吗，这是我的程序：
begin
idftp1.Host :='www.XXXX.com';
idftp1.Username :='usertest';
idftp1.password:='usertest';

with idftp1 do
try
Connect;
ChangeDir('/www');
IdFTP1.Put('test.asp','.\test.asp');
//经常执行idftp1.put这一步程序就没有响应，但有时可以，如果出现没有响应，只有使用cuteftp上传（cuteftp可以上传，正常）
showmessage('上传TIPS成功');
finally
idftp1.Disconnect;
end;
end;

请问问题出在哪里，是否FTP服务器问题，还是控件问题？？？？
好郁闷，希望得到解决，帮帮忙

[zhjmxt7951]

我做的ftp上传程序，是在put时有时会出现非法操作。使整个程序都当掉了，而且是在winxp
系统上，有这样的错误。我把system32下的kernel.dll，换了之后就好了。

[zhjmxt7951]

是kernel32.dll