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;