Fix bug in StrCompressWhiteSpace function

Bug per issue in StrCompressWhiteSpace function.

Fixes #95

Author: delphidabbler

Src/UStrUtils.pas

@@ -404,7 +404,7 @@ function StrCompressWhiteSpace(const Str: UnicodeString): UnicodeString;
       Inc(ResCount);
       // Skip past any following white space
       Inc(Idx);
-      while TCharacter.IsWhiteSpace(Str[Idx]) do
+      while (Idx <= Length(Str)) and TCharacter.IsWhiteSpace(Str[Idx]) do
         Inc(Idx);
     end
     else