procedure WriteStream(S: TStream); virtual;