Паредча головного параметра в tidhttp Delphi

Подскажите пожалуйста отправляю post запрос. Если не передаю Content-Length то сервер не видит тело запроса а если передаю то socket error # 10054. В postman все передаеться. Версия ssl openssl-1.0.2q.

  JsonToSend := TStringStream.Create(trim(stringlist), TEncoding.UTF8);
  JsonToSend.Position:=0;
  FHttp := TIdHTTP.Create(nil);
  FSSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  FSSLIOHandler.SSLOptions.Method := sslvTLSv1;
  FSSLIOHandler.SSLOptions.SSLVersions := [sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2];
  FSSLIOHandler.SSLOptions.Mode := sslmClient;
  with FHttp do
begin
IOHandler := FSSLIOHandler;
AllowCookies := True;
HandleRedirects := True;

Request.BasicAuthentication := false;
ProxyParams.ProxyPort := 3128;
ProxyParams.ProxyServer := '10.10.10.1';
ReadTimeout := 100000000;
 Request.ContentEncoding := 'UTF-8';
 Request.CharSet := 'UTF-8';
 Request.AcceptCharSet := 'UTF-8';
 Request.Accept     :='application/json';
 HTTPOptions := [hoKeepOrigProtocol,hoForceEncodeParams,hoNoProtocolErrorException,hoWantProtocolErrorContent];
 Request.ContentType       := 'application/json';
 Request.ContentLength:=  JsonToSend.Size;
 Request.CustomHeaders.AddValue('Content-Type','application/json');
// Request.CustomHeaders.AddValue('Content-Length',inttostr(JsonToSend.Size));
end;
 JSON:= TJSONObject.ParseJSONValue(FHttp.post('https://link?session='+session,JsonToSend)) as TJSONObject;