Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r55 -r57
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 55)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 57)
@@ -47,8 +47,6 @@
 end;
 
 procedure TfmProScanHoofdscherm.FormCreate(Sender: TObject);
-var
-  LoginScherm: TfmLoginScherm;
 begin
   fLoginScherm := TfmLoginScherm.Create(Self);
   fHomeScherm := TfmHomeScherm.Create(Self);
@@ -57,9 +55,7 @@
   fDnaCodeScherm := TfmDnaCodeScherm.Create(Self);
   fInfoLogScherm := TfmInfoLogScherm.Create(Self);
 
-  //fHuidigScherm := fLoginScherm;
-  fHuidigScherm := fInfoLogScherm;
-  fHuidigeToelevering := '333333';
+  fHuidigScherm := fLoginScherm;
 
   Self.Show;
 end;
@@ -150,6 +146,7 @@
     if fHuidigScherm.ClassType = TfmDnaCodeScherm then begin
       (fHuidigScherm as TfmDnaCodeScherm).lblPalletCode.Caption := fHuidigePallet;
       fModalResult := fHuidigScherm.ShowModal;
+      fHuidigeToelevering := (fHuidigScherm as TfmDnaCodeScherm).GeefToelevering();
       if fHuidigScherm.ModalResult = mrYes then begin
         fHuidigScherm := fHomeScherm;
       end
@@ -162,7 +159,6 @@
       else if fHuidigScherm.ModalResult = mrIgnore then begin
         fHuidigScherm := fInfoLogScherm;
       end;
-      fHuidigeToelevering := (fHuidigScherm as TfmDnaCodeScherm).GeefToelevering();
       continue;
     end;