Bug in `StrCompressWhiteSpace` function of `UStrUtils` unit

[delphidabbler]

This unit can generated an out of bounds error when following white space is at the end of a string. The Idx index can go beyond the end of the string.

The bug is in the line:

codesnip/Src/UStrUtils.pas

Line 407 in 02656b8

while TCharacter.IsWhiteSpace(Str[Idx]) do

A fix is to change the above line to:

while (Idx <= Length(Str)) and TCharacter.IsWhiteSpace(Str[Idx]) do

[delphidabbler]

Fixed at merge commit 60f68dc