Циклический Post-запрос

[Моржовый]

Добрый день.
Ситуация вкратце такая: в отдельном потоке крутится цикл Post-запроса. IdHttp-компонент описывается и убивается вне цикла.В самом теле только вызывается метод Post.

 paramstr:= 'username='+UserName+'&password='+UserPassword;
 Params := TStringStream.Create();
 Params.WriteString(paramstr);
 Res1 :=  TStringStream.Create();
try
 HttpClientToken := TIdHttp.Create(nil) ;
 //HttpClientToken.ReuseSocket:=rsTrue;//1
 HttpClientToken.Request.ContentType := 'application/x-www-form-urlencoded';
 HttpClientToken.Request.Connection  := 'Keep-Alive';//2
 HttpClientToken.Request.Accept := 'application/json' ;
 HttpClientToken.ReadTimeout    := 60000 ;
 HttpClientToken.Request.CustomHeaders.Add('X-Application:'+AppKey) ;
 HttpClientToken.Request.CustomHeaders.Add('Connection: keep-alive');//3
 HttpClientToken.HTTPOptions :=  [ hoKeepOrigProtocol ];
 sslIOHandlerToken:= TIdSSLIOHandlerSocketOpenSSL.Create(HttpClientToken) ;
 //sslIOHandlerToken.ReuseSocket:=rsTrue;//5
 HttpClientToken.IOHandler := sslIOHandlerToken ;


 while not(Terminated) do
   begin
 if not(SessionToken.TokenValidate) or (MinutesBetween(SessionToken.TokenTime,Now)>=10) then

                       begin
  res1.Clear;

  try
   HttpClientToken.Post(URLSource,Params,Res1) ;
   except
   Logging('TokenRequestLog',Res1.DataString);
    
  end;
  HttpClientToken.Disconnect;// 4
  end;
   Sleep(10000);
                       end;
  finally
  HttpClientToken:= nil;
  HttpClientToken.Free;
  sslIOHandlerToken:= nil;
  sslIOHandlerToken.Free;
  Res1 := nil;
  Res1.Free;
  Params := nil;
  Params.Free;
  end;

Этот код работает. Но:
1. при передаче параметра "keep-alive" (строка //2) соединение не должно закрываться и в заголовке ответного сообщения добавляется "Connection: keep-alive". В ответном сообщении этого заголовка нет.
2. При комментировании строки //2 и явной передаче заголовка (стока //3. В ответном сообщении так же не приходит "keep-alive".
3. Строка //4-это костыль. Поскольку, учитывая пункты 1 и 2, соединение не считается "живым" и по истечению стандартного таймаута - 300с при вызове Post возникает исключение Connection refused by peer.
4. По поводу строк //1 и //5: если их раскомментировать и закомментировать HttpClientToken.Disconnect, то после истечения 300 секунд, возникнет исключение SocketError#0.
В конечном итоге, в определенный момент времени, после ряда таких исключений, Post будет постоянно вызывать исключение (сразу при запуске потока и первом же вхождении в цикл) Connection refused by peer до момента перезагрузки системы. Похоже, это связано с тем, что сокеты остаются корректно не закрытыми.
Вопроса, в принципе два: по каким причинам может не передаваться заголовок "keep-alive". И почему без принудительного дисконнекта Post вызывает исключение