Index: PlanScan/UI/UiContext.pas
===================================================================
diff -u -r259 -r298
--- PlanScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 259)
+++ PlanScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 298)
@@ -28,6 +28,7 @@
     fDesktopMode: boolean;
     fIsDirecteLeveringPopupGetoond: boolean;
     fIsWegwerpPalletPopupGetoond: boolean;
+    fServerName: string;
   public
     Property Initialen: String Read fInitialen Write fInitialen;
     Property LoginCode: String Read fLoginCode Write fLoginCode;
@@ -39,6 +40,7 @@
     Property DesktopMode: boolean Read fDesktopMode Write fDesktopMode;
     Property IsDirecteLeveringPopupGetoond: boolean Read fIsDirecteLeveringPopupGetoond Write fIsDirecteLeveringPopupGetoond;
     Property IsWegwerpPalletPopupGetoond: boolean Read fIsWegwerpPalletPopupGetoond Write fIsWegwerpPalletPopupGetoond;
+    Property ServerName: string Read fServerName Write fServerName;
   end;
 
 implementation