Source position: xmlutils.pp line 243
procedure BufAllocate(
var ABuffer: TWideCharBuf;
ALength: Integer
);