anchor.diff:    if FActualPort > 0 then
     begin
       FPlainServer := TIdHTTPServer.Create(Nil);
  +    FPlainServer.Scheduler := TIdSchedulerOfThreadPool.Create(nil);
  +    TIdSchedulerOfThreadPool(FPlainServer.Scheduler).PoolSize := 20;
       FPlainServer.ServerSoftware := 'Health Intersections FHIR Server';
       FPlainServer.ParseParams := false;
       FPlainServer.DefaultPort := FActualPort;
  
positive.code:   if FSSLServer <> nil then
    begin
      FSSLServer.active := false;
      FreeAndNil(FSSLServer);
      FreeAndNil(FIOHandler);
      UnloadEAYExtensions;
    end;
    if FPlainServer <> nil then
    begin
      FPlainServer.active := false;
      FreeAndNil(FPlainServer);
    end;
  
negative.code:     If (FRootCertFile <> '') and (Not FileExists(FRootCertFile)) Then
        Raise exception.Create('SSL Certificate "' + FRootCertFile + ' could not be found');
      FSSLServer := TIdHTTPServer.Create(Nil);
      FSSLServer.Scheduler := TIdSchedulerOfThreadPool.Create(nil);
      TIdSchedulerOfThreadPool(FSSLServer.Scheduler).PoolSize := 20;
      FSSLServer.ServerSoftware := 'Health Intersections FHIR Server';
      FSSLServer.ParseParams := false;
      FSSLServer.DefaultPort := FActualSSLPort;
  