Illegal PORT command!!! idFTP遇到的问题(100分)

我做了一个ftp程序，上传的端口是21000，可以下载，但是上传就不行，出现上面的错误提示，请问是啥问题？

另外
procedure PutPic(GHost:string;GUser:string;GPass:string;GPort:integer;GPicName:string);
begin
with Form1.IdFTP1 do
try
Host:=GHost;
Username:=GUser;
Password:=GPass;
Port:=GPort;
Connect;
ChangeDir(PicPath);
Form1.IdFTP1.ChangeDirUp;
//Showmessage(Picname(Form1.Edit1.Text));
Put(Picname(Form1.Edit1.Text));
finally
Quit;
end;
end;

主要是IdFTP1.put没有错吧，我觉得问题可能在这里但是不知道怎么改，请教大师！！！