procedure WriteStream(S: TStream); override;