procedure LoadFromBinaryStream(AStream: TStream);