anchor.diff:    protected
       procedure Execute; override;
     public
  +    Constructor Create;
  +    Destructor Destroy; override;
       procedure start;
       procedure stop;
     end;
  
positive.code: 
  procedure TServerControl.close;
  begin
    FLock.Free;
    FMsgs.Free;
    FIni.Free;
  end;
  
  procedure TServerControl.DoStart;
  var
    ctxt : TFHIRServerContext;
  
negative.code: procedure TServerControl.init;
  begin
    FMsgs := TStringList.create;
    FIni := TFHIRServerIniFile.Create('');
    logevent := log;
  end;
  