Index: VerpakkingsDefinitie/Main.pas
===================================================================
diff -u -r554 -r555
--- VerpakkingsDefinitie/Main.pas	(.../Main.pas)	(revision 554)
+++ VerpakkingsDefinitie/Main.pas	(.../Main.pas)	(revision 555)
@@ -1,7 +1,7 @@
 unit Main;
 
 interface
-
+ { TODO -cnavigatie : NavigeerNaar in interface zetten ter abstractie voor subschermen }
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
   System.Classes, Vcl.Graphics,
@@ -35,7 +35,7 @@
 implementation
 
 uses
-  Subscherm, LogInScherm, ZoekProductenScherm;
+  Subscherm, LogInScherm, ZoekProductenScherm, GebruikerScherm;
 
 {$R *.dfm}
 
@@ -67,7 +67,6 @@
   Application.ProcessMessages; // Interrupts the execution of an application so that it can process the message queue.
 
   // Volgende subscherm laden in panel
-  { TODO -cNavigatie : Huidige schermen verwijderen (indien nodig) met Controls property }
 
   // PanelMain behouden we altijd, the children can be free.
   for i := 0 to PanelMain.ControlCount - 1 do
@@ -84,7 +83,7 @@
         // Schermen op GridPanel plaatsen
         // PlaatsControlOpGrid(GridPanel; Control; RowI; ColI; (opt) RowSpan; (opt)ColSpan);
         // Gebruikersgegevens scherm bovenaan.
-        NieuweGridControl := TFormLogin.Create(GridPanel, Self, FAppContext, FAgent);
+        NieuweGridControl := TFormGebruiker.Create(GridPanel, Self, FAppContext, FAppContext.UserServerServiceContext, FAgent);
         PlaatsControlOpGrid(GridPanel, NieuweGridControl, 0, 0, 1, 2);
         // Zoekscherm daaronder links
         NieuweGridControl := TFormZoekProducten.Create(GridPanel, Self, FAppContext);