Source position: lresources.pp line 449
procedure WriteComponentAsBinaryToStream(
AStream: TStream;
AComponent: TComponent
);