Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r194 -r207
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 194)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 207)
@@ -48,16 +48,17 @@
     (fHuidigScherm as TfmDrieKnoppenScherm).UiContext := fUiContext;
     fModalResult := fHuidigScherm.ShowModal;
     fUiContext := (fHuidigScherm as TfmDrieKnoppenScherm).UiContext;
+    fHuidigScherm.Free;
 
-    case fHuidigScherm.ModalResult of
-      mrLogin               : fHuidigScherm := fLoginScherm2;
-      mrHome                : fHuidigScherm := fHomeScherm;
-      mrPallet              : fHuidigScherm := fPalletScherm;
-      mrHernoemPallet       : fHuidigScherm := fHernoemPalletScherm;
-      mrBestaandePallet     : fHuidigScherm := fBestaandePalletScherm;
-      mrDnaCode             : fHuidigScherm := fDnaCodeScherm;
-      mrInfoLog             : fHuidigScherm := fInfoLogScherm;
-      mrDnaCodeReedsGescand : fHuidigScherm := fDnaCodeReedsGescandScherm;
+    case fModalResult of
+      mrLogin               : fHuidigScherm := TfmLoginScherm2.Create(Self);
+      mrHome                : fHuidigScherm := TfmHomeScherm.Create(Self);
+      mrPallet              : fHuidigScherm := TfmPalletScherm.Create(Self);
+      mrHernoemPallet       : fHuidigScherm := TfmHernoemPalletScherm.Create(Self);
+      mrBestaandePallet     : fHuidigScherm := TfmBestaandePalletScherm.Create(Self);
+      mrDnaCode             : fHuidigScherm := TfmDnaCodeScherm.Create(Self);
+      mrInfoLog             : fHuidigScherm := TfmInfoLogScherm.Create(Self);
+      mrDnaCodeReedsGescand : fHuidigScherm := TfmDnaCodeReedsGescandScherm.Create(Self);
     end;
   end;