--- dao/DelphiScanner/Main.pas	2016/08/19 14:35:39	3094
+++ dao/DelphiScanner/Main.pas	2016/08/21 20:51:45	3095
@@ -202,6 +202,7 @@
   procedure LogMessage( msg : string);
   procedure SetPrinterstatusText( txt: string; alert: boolean);
   function GetFormObject() : TForm;
+  function GetXMLDocument() : TXMLDocument;
 
 
 
@@ -4857,5 +4858,12 @@
   Result := self;
 end;
 
+//Nedarvet fra IParentForm
+function TMainForm.GetXMLDocument() : TXMLDocument;
+begin
+  Result := XMLDocument1
+end;
+
+
 end.