--- dao/DelphiScanner/Main.pas	2016/08/19 12:28:21	3093
+++ dao/DelphiScanner/Main.pas	2016/08/19 14:35:39	3094
@@ -20,7 +20,7 @@
   IdExplicitTLSClientServerBase, IdFTP, IdException,
   ShellApi, ClipBrd, Buttons, wininet,
   UITypes,
-  PakkeshopLabels,
+  LabelData,
   Utils,
   ParentForm,
   LabelPrint,
@@ -1932,7 +1932,7 @@
   pakkestorrelse : String;
   PrintNyLabelInteger : Integer;
 
-  PakkeshopLabel: TPakkeshopLabel;
+  PakkeshopLabel: TLabelData;
 begin
   if radioStorPakke.Checked then
   begin
@@ -2041,7 +2041,7 @@
      if (Kommentar = 'Ok') then
      begin
        PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
-       PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc
+       PakkeshopLabel := TLabelData.Create( XMLDocument1 ); //Opret struct og parse xml doc
        RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
        Stregkode := PakkeshopLabel.Stregkode;