procedure DoBeginObject(AType: PString); virtual; abstract;