procedure Serialize(const ANode: IXMLNode; const AValueName: string;
                    AValue: TObject); overload;