anchor.diff:    protected
       procedure Execute; override;
     public
  +    Constructor Create;
  +    Destructor Destroy; override;
       procedure start;
       procedure stop;
     end;
  
positive.code: procedure TServerControl.init;
  begin
    FMsgs := TStringList.create;
    FLock := TCriticalSection.Create('Control Thread');
    FIni := TFHIRServerIniFile.Create('');
    logevent := log;
  end;
  
negative.code: var
    b : boolean;
  begin
    if FServer = nil then
      exit;
  
    if FServer.FStatus <> FStatus then
    begin
      FStatus := FServer.FStatus;
  