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