RangeCheck error

[tueddy]

While compiling with RangeCheck on i get an error in dbx4.firebird.dll.pas:

Convert := function (Source: RawByteString): string
           var
             W: WideString;
             L: Integer;
           begin
             L:= Length(Source) div 2;
             SetLength(W, L);
             if L > 0 then  //  ++ check length here ++
               Move(Source[1], W[1], Length(Source));
             Result := W;
           end;

[ccy]

Which Delphi version you use to compile the code?

[tueddy]

Delphi XE 10.2 Berlin (latest version)