procedure DoBeginObject(AProp, AType: PString); override;