Source position: flcStrings.pas line 254
procedure SetLengthAndZeroU(
var S: UnicodeString;
const NewLength: Integer
);