anchor.diff:          FNoExitBehavior := TNoExitBehavior(iValue);
   end;
   
  -procedure TFIToolkit.UpdateExitCode(var AnExitCode : Integer);
  -begin
  -  if FStateMachine.CurrentState = asFinal then
  -    if FConfig.ConfigData.UseBadExitCode and (FWorkflowState.TotalMessages > 0) then
  -      AnExitCode := INT_EC_ANALYSIS_MESSAGES_FOUND;
  -end;
  -
   end.
  
positive.code: 
  { TFIToolkit }
  
  constructor TFIToolkit.Create(const FullExePath : TFileName; const CmdLineOptions : TStringDynArray);
  begin
    inherited Create;
  
negative.code:     [TPath.GetFileName(FullExePath) + ' ' + STR_CLI_OPTION_PREFIX + STR_CLI_OPTION_HELP]));
  end;
  
  procedure TFIToolkit.PrintVersion;
  begin
    PrintLn(GetAppVersionInfo);
  