Source position: lresources.pp line 447
function CreateLRSWriter(
s: TStream;
var DestroyDriver: Boolean
):TWriter;