anchor.diff:    if FSSLServer <> nil then
     begin
       FSSLServer.active := false;
  +    FSSLServer.Scheduler.Free;
       FreeAndNil(FSSLServer);
       FreeAndNil(FIOHandler);
       UnloadEAYExtensions;
     end;
     if FPlainServer <> nil then
     begin
  +    FPlainServer.Scheduler.Free;
       FPlainServer.active := false;
       FreeAndNil(FPlainServer);
     end;
  
positive.code:   if FActualPort > 0 then
    begin
      FPlainServer := TIdHTTPServer.Create(Nil);
      FPlainServer.ServerSoftware := 'Health Intersections FHIR Server';
      FPlainServer.ParseParams := false;
      FPlainServer.DefaultPort := FActualPort;
  
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;
  