procedure DoBeginObject(AType: PString); override;