if IDFTP1.Connected then
    begin
        strpath := 'E:\ceshi\afa.txt';
        strname := 'afa.txt';
        IdFTP1.TransferType := ftBinary;
        IDFTP1.Put(strpath,strname,true);   //竟然报错:socket error #0
    end;