Empty constant value raised Range Check Error Exception under debuging

[AndreyPS72]

Workaround DKLang.pas:

function StreamReadUnicodeStr(Stream: TStream): UnicodeString; var w: Word; b: TBytes; begin w := StreamReadWord(Stream); if w=0 then result := '' else begin SetLength(b,w_2); Stream.ReadBuffer(b[0],w_2); result := TEncoding.Unicode.GetString(b); end; end;