if IdFTP1.Connected then
   begin
    IdFTP1.Abort;
    IdFTP1.Quit;
   end;
 IdFTP1.Username := Login_S;
 IdFTP1.Password := Password_S;
 IdFTP1.Host := IP_S;
 try
    IdFTP1.Connect;
    if IdFTP1.Connected then
      begin
        s:=URLEncode(ExtractFileName(FName));

        IdFTP1.Put(FName,s,false);                      // здесь останавливается секунд на 30, потом ошибка EIdSocktError 10054
        IdFTP1.Quit;
      end;
 except
    ......
    ......
 end;