anchor.diff:  
   procedure TestTCLIOption.TestHasDelimiter;
   begin
  -  //TODO: messages
  -  CheckTrue(TCLIOption.Create(STR_OPTION, STR_PREFIX, STR_DELIMITER).HasDelimiter);
  -  CheckFalse(TCLIOption.Create(STR_OPTION, STR_DELIMITER, STR_PREFIX).HasDelimiter);
  +  CheckTrue(TCLIOption.Create(STR_OPTION, STR_PREFIX, STR_DELIMITER).HasDelimiter, 'Prefix → Delimiter');
  +  CheckFalse(TCLIOption.Create(STR_OPTION, STR_DELIMITER, STR_PREFIX).HasDelimiter, 'Delimiter → Prefix');
   end;
   
   procedure TestTCLIOption.TestHasNonEmptyValue;
   begin
  -  //TODO: messages
  -  CheckTrue(TCLIOption.Create(STR_OPTION, STR_PREFIX, STR_DELIMITER).HasNonEmptyValue);
  -  CheckFalse(TCLIOption.Create(STR_OPTION_NAME, STR_PREFIX, STR_DELIMITER).HasNonEmptyValue);
  +  CheckTrue(TCLIOption.Create(STR_OPTION, STR_PREFIX, STR_DELIMITER).HasNonEmptyValue, STR_OPTION);
  +  CheckFalse(TCLIOption.Create(STR_OPTION_NAME, STR_PREFIX, STR_DELIMITER).HasNonEmptyValue, STR_OPTION_NAME);
   end;
   
   procedure TestTCLIOption.TestHasPrefix;
   begin
  -  //TODO: messages
  -  CheckTrue(TCLIOption.Create(STR_OPTION, STR_PREFIX, STR_DELIMITER).HasPrefix);
  -  CheckFalse(TCLIOption.Create(STR_OPTION, STR_DELIMITER, STR_PREFIX).HasPrefix);
  +  CheckTrue(TCLIOption.Create(STR_OPTION, STR_PREFIX, STR_DELIMITER).HasPrefix, 'Prefix → Delimiter');
  +  CheckFalse(TCLIOption.Create(STR_OPTION, STR_DELIMITER, STR_PREFIX).HasPrefix, 'Delimiter → Prefix');
   end;
   
   procedure TestTCLIOption.TestImplicitFromString;
  
positive.code:       STR_OPTION_NAME = 'ParamName';
        STR_DELIMITER = ':';
        STR_OPTION_VALUE = 'ParamValue';
        STR_OPTION = STR_PREFIX + STR_OPTION_NAME + STR_DELIMITER + STR_OPTION_VALUE;
    published
      procedure TestCreateLong;
      procedure TestCreateShort;
  
negative.code: 
  uses
    TestFramework,
    FIToolkit.CommandLine.Options, FIToolkit.CommandLine.Types;
  
  type
    // Test methods for class TCLIOption
  