Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r47 -r53
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 47)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 53)
@@ -15,12 +15,14 @@
     fInitialen: string;
     fLoginCode: string;
     fHuidigePallet: string;
+    fHuidigeToelevering: string;
     fHuidigScherm: TForm;
     fLoginScherm: TForm;
     fHomeScherm: TForm;
     fPalletScherm: TForm;
     fBestaandePalletScherm: TForm;
     fDnaCodeScherm: TForm;
+    fInfoLogScherm: TForm;
     procedure HuidigeGebruikerAfmelden;
   public
   end;
@@ -32,7 +34,7 @@
 
 uses
   LoginScherm, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm,
-  BestaandePalletscherm, DnaCodeScherm;
+  BestaandePalletscherm, DnaCodeScherm, InfoLogScherm;
 
 {$R *.dfm}
 
@@ -53,6 +55,7 @@
   fPalletScherm := TfmPalletScherm.Create(Self);
   fBestaandePalletScherm := TfmBestaandePalletScherm.Create(Self);
   fDnaCodeScherm := TfmDnaCodeScherm.Create(Self);
+  fInfoLogScherm := TfmInfoLogScherm.Create(Self);
   fHuidigScherm := fLoginScherm;
 
   Self.Show;
@@ -152,10 +155,33 @@
       end
       else if fHuidigScherm.ModalResult = mrNone then begin
         fHuidigScherm := fDnaCodeScherm;
+      end
+      else if fHuidigScherm.ModalResult = mrIgnore then begin
+        fHuidigScherm := fInfoLogScherm;
       end;
+      fHuidigeToelevering := (fHuidigScherm as TfmDnaCodeScherm).GeefToelevering();
       continue;
     end;
 
+    //InfoLogScherm tonen
+    if fHuidigScherm.ClassType = TfmInfoLogScherm then begin
+      (fHuidigScherm as TfmInfoLogScherm).lblToelevering.Caption := fHuidigeToelevering;
+      fModalResult := fHuidigScherm.ShowModal;
+      if fHuidigScherm.ModalResult = mrYes then begin
+        fHuidigScherm := fmInfoLogScherm;
+      end
+      else if fHuidigScherm.ModalResult = mrOk then begin
+        fHuidigScherm := fDnaCodeScherm;
+      end
+      else if fHuidigScherm.ModalResult = mrNone then begin
+        fHuidigScherm := fmInfoLogScherm;
+      end
+      else if fHuidigScherm.ModalResult = mrIgnore then begin
+        fHuidigScherm := fmInfoLogScherm;
+      end;
+      continue;
+    end;
+
   end;
 
   Self.Close;