anchor.diff:  procedure TestTCLIOption.TestToString;
   begin
     FCLIOption := TCLIOption.Create(STR_OPTION, STR_PREFIX, STR_DELIMITER);
  -
     CheckEquals(STR_OPTION, FCLIOption.ToString, 'FCLIOption.ToString = STR_OPTION');
   
  -  //TODO: another cases?
  +  FCLIOption := TCLIOption.Create(STR_OPTION_NAME, ' ', ' ');
  +  CheckEquals(STR_OPTION_NAME, FCLIOption.ToString, 'FCLIOption.ToString = STR_OPTION_NAME');
  +
  +  FCLIOption := TCLIOption.Create(STR_OPTION_WITH_SPACE, STR_PREFIX, STR_DELIMITER);
  +  CheckTrue(
  +    String(FCLIOption.ToString).EndsWith(
  +      TCLIOptionString.CHR_QUOTE + STR_OPTION_VALUE_WITH_SPACE + TCLIOptionString.CHR_QUOTE),
  +    STR_OPTION_WITH_SPACE
  +  );
   end;
   
   procedure TestTCLIOption.TestValueContainsSpaces;
   begin
  -  //TODO: messages
  -  CheckFalse(TCLIOption.Create(STR_OPTION, STR_PREFIX, STR_DELIMITER).ValueContainsSpaces);
  -  CheckTrue(TCLIOption.Create(STR_OPTION + TCLIOptionString.CHR_SPACE, STR_PREFIX, STR_DELIMITER).ValueContainsSpaces);
  +  CheckFalse(TCLIOption.Create(STR_OPTION, STR_PREFIX, STR_DELIMITER).ValueContainsSpaces, STR_OPTION);
  +  CheckTrue(TCLIOption.Create(STR_OPTION_WITH_SPACE, STR_PREFIX, STR_DELIMITER).ValueContainsSpaces,
  +    QuotedStr(STR_OPTION_WITH_SPACE));
   end;
   
   initialization
  
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
    System.SysUtils,
    TestUtils,
    FIToolkit.CommandLine.Exceptions, FIToolkit.CommandLine.Consts;
  
  procedure TestTCLIOption.TestCreateLong;
  begin
  