anchor.diff:  var
     b : boolean;
   begin
  +  if FServer = nil then
  +    exit;
  +
     if FServer.FStatus <> FStatus then
     begin
       FStatus := FServer.FStatus;
  
positive.code: 
  procedure TServerControl.close;
  begin
    FLock.Free;
    FMsgs.Free;
    FIni.Free;
  end;
  
  procedure TServerControl.DoStart;
  var
    ctxt : TFHIRServerContext;
  
negative.code:   protected
      procedure Execute; override;
    public
      Constructor Create;
      Destructor Destroy; override;
      procedure start;
      procedure stop;
    end;
  