Delphi Count Characters In String R