Index: PlanScan/Main.pas
===================================================================
diff -u -r293 -r294
--- PlanScan/Main.pas	(.../Main.pas)	(revision 293)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 294)
@@ -201,10 +201,15 @@
       end else begin
         UiContext.Initialen := fLoginScherm.edtInitialen.Text;
         UiContext.LoginCode := fLoginScherm.edtLoginCode.Text;
+        Self.Caption := 'PlanScan '+UiContext.Initialen;
       end;
-    finally
-      fGebruikerAanmeldenResponse.Free;
+    except
+      on E: Exception do begin
+        ShowMessage(E.Message);
+        Application.Terminate;
+      end;
     end;
+    fGebruikerAanmeldenResponse.Free;
   end else begin
     Application.Terminate;
   end;
Index: PlanScan/Main.dfm
===================================================================
diff -u -r293 -r294
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 293)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 294)
@@ -35,8 +35,6 @@
     TabOrder = 1
     object tsDnaCodes: TTabSheet
       Caption = 'DnaCodes'
-      ExplicitWidth = 611
-      ExplicitHeight = 123
       object pnlZoekKnoppen: TPanel
         Left = 0
         Top = 0
@@ -46,8 +44,6 @@
         BevelEdges = []
         BevelOuter = bvNone
         TabOrder = 0
-        ExplicitLeft = 4
-        ExplicitTop = 24
         object btnZoekViaToelevering: TButton
           Left = 135
           Top = 9
@@ -92,9 +88,6 @@
         BevelEdges = []
         BevelOuter = bvNone
         TabOrder = 1
-        ExplicitLeft = 504
-        ExplicitTop = 24
-        ExplicitHeight = 140
         object btnMaatwerketiket: TButton
           Left = 6
           Top = 6
@@ -196,9 +189,6 @@
         BevelEdges = []
         BevelOuter = bvNone
         TabOrder = 0
-        ExplicitLeft = 504
-        ExplicitTop = 24
-        ExplicitHeight = 140
         object btnGebruikerAfmelden: TButton
           Left = 6
           Top = 6