Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r59 -r61
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 59)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 61)
@@ -167,16 +167,16 @@
       (fHuidigScherm as TfmInfoLogScherm).lblToelevering.Caption := fHuidigeToelevering;
       fModalResult := fHuidigScherm.ShowModal;
       if fHuidigScherm.ModalResult = mrYes then begin
-        fHuidigScherm := fmInfoLogScherm;
+        fHuidigScherm := fInfoLogScherm;
       end
       else if fHuidigScherm.ModalResult = mrOk then begin
         fHuidigScherm := fDnaCodeScherm;
       end
       else if fHuidigScherm.ModalResult = mrNone then begin
-        fHuidigScherm := fmInfoLogScherm;
+        fHuidigScherm := fInfoLogScherm;
       end
       else if fHuidigScherm.ModalResult = mrIgnore then begin
-        fHuidigScherm := fmInfoLogScherm;
+        fHuidigScherm := fInfoLogScherm;
       end;
       continue;
     end;