Index: PlanScan/Main.pas
===================================================================
diff -u -r455 -r456
--- PlanScan/Main.pas	(.../Main.pas)	(revision 455)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 456)
@@ -61,6 +61,8 @@
   else
     UiContext.ServerName := 'tve-w10';
 
+  Self.Caption := Self.Caption + ' ' + UiContext.ServerName;
+
   if not GebruikerInloggen then
     Application.Terminate;
 end;
@@ -122,7 +124,7 @@
         UiContext.Initialen := fLoginScherm.edtInitialen.Text;
         UiContext.LoginCode := fLoginScherm.edtLoginCode.Text;
         lblInitialen.Caption := UiContext.Initialen;
-        Self.Caption := 'PlanScan '+UiContext.Initialen;
+        Self.Caption := Self.Caption + ' ' + UiContext.Initialen;
         pcFrames.ActivePageIndex := 0;
       end;
     except