function  Deserialize(AStream: TStream): TObject; overload;