Source position: classesh.inc line 1869
type TGetStreamProc = procedure(
const S: TStream
) of object;