Source position: lresources.pp line 592
procedure WriteLRSDoubleAsExtended(
s: TStream;
ADouble: PByte
);