procedure Serialize(AStream: TStream; AValue: TObject;
                    AWriteEndMark: Boolean = False); overload;