anchor.diff:          .Execute(acMakeArchive)
           .Execute(acTerminate);
   
  -      UpdateExitCode(Result);
  -      PrintTotalDuration;
  +      ActualizeExitCode(Result);
  +      PrintLn(Format(RSTotalDuration, [String(FWorkflowState.TotalDuration)]));
       except
         Exception.RaiseOuterException(EApplicationExecutionFailed.Create);
       end;
  
positive.code:     private
        FNoExitBehavior : TNoExitBehavior;
  
        procedure PrintTotalDuration;
        procedure ProcessOptions;
        procedure UpdateExitCode(var AnExitCode : Integer);
  
        // Application commands implementation:
        procedure PrintHelp;
  
negative.code:     [TPath.GetFileName(FullExePath) + ' ' + STR_CLI_OPTION_PREFIX + STR_CLI_OPTION_HELP]));
  end;
  
  procedure TFIToolkit.PrintVersion;
  begin
    PrintLn(GetAppVersionInfo);
  