--- dao/DelphiScanner/ParentForm.pas 2016/08/19 14:35:39 3094 +++ dao/DelphiScanner/ParentForm.pas 2016/08/21 20:51:45 3095 @@ -2,7 +2,8 @@ interface uses - Forms; + Forms, + XMLDoc; type IParentForm = Interface(IInterface) @@ -12,6 +13,8 @@ function GetFormObject() : TForm; + function GetXMLDocument() : TXMLDocument; + End; implementation