procedure Deserialize(AStream: TStream; const AResult: TObject); overload;