Я хочу загрузить несколько больших файлов (ГБ) с FTP-сервера. Загрузка первого файла всегда работает. Затем при попытке получить второй файл я получаю:

«Ошибка сокета # 10038. Операция с сокетом без сокета».

Ошибка на «Получить». После «Get» я вижу эти сообщения (через событие состояния FTP):

   Starting FTP transfer
   Disconnecting.
   Disconnected.

Код выглядит так:

{pseudo-code}
for 1 to AllFiles do 
 begin 
   if Connect2FTP then 
    begin
     FTP.Get(Name, GzFile, TRUE, FALSE);  <--- Socket operation on non-socket" error (I also get EIdConnClosedGracefully 'Connection Closed Gracefully' in IDE, F9 will resume execution without problems, but this is OK)
     Unpack(GzFile); <--- this takes more than 60 seconds
    end;
 end;
if FTP.Connected
then FTP.Disconnect;

-

function Connect2FTP(FTP: TIdFTP; RemoteFolder: string; Log: TRichLog): Boolean;      
begin
 Result:= FTP.Connected;
 if NOT Result then
  begin         { We are already connected }
   FTP.Host    := MyFTP;
   FTP.Username:= usr;
   FTP.Password:= psw;

   TRY
    FTP.Connect;
   EXCEPT
    on E: Exception DO

   Result:= FTP.Connected;
   if Result then FTP.ChangeDir(RemoteFolder); 
  end;
end;

Полный код здесь:http://pastebin.com/RScj86R8 (PAS) или здесьhttps://ufile.io/26b54 (ZIP)

Я думаю, что проблема появляется после вызова «Распаковать», который занимает несколько минут.

ОБНОВЛЕНИЕ: ПОДТВЕРЖДЕНО: Проблема появляется после вызова «Распаковать». Я убрал звонок и все нормально. Приостановка (перерыв или остановка) программы между загрузками на некоторое время (думаю, более 60 секунд) создаст ту же проблему.