Index: PlanScan/Main.pas
===================================================================
diff -u -r454 -r455
--- PlanScan/Main.pas	(.../Main.pas)	(revision 454)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 455)
@@ -60,13 +60,14 @@
     UiContext.ServerName := Copy(ParamStr(1),Pos('=',ParamStr(1))+1,length(ParamStr(1)))
   else
     UiContext.ServerName := 'tve-w10';
+
+  if not GebruikerInloggen then
+    Application.Terminate;
 end;
 
 procedure TfmMain.FormShow(Sender: TObject);
 begin
   pcFrames.ActivePage := tsDnaCodes;
-  if not GebruikerInloggen then
-    Application.Terminate;
 end;
 
 procedure TfmMain.frmDnaCodesbtnZoekenClick(Sender: TObject);