Source position: lresources.pp line 587
procedure WriteLRSWideStringContent(
s: TStream;
const w: WideString
);