Index: VerpakkingsDefinitie/Main.pas
===================================================================
diff -u -r555 -r556
--- VerpakkingsDefinitie/Main.pas	(.../Main.pas)	(revision 555)
+++ VerpakkingsDefinitie/Main.pas	(.../Main.pas)	(revision 556)
@@ -1,12 +1,13 @@
 unit Main;
 
 interface
- { TODO -cnavigatie : NavigeerNaar in interface zetten ter abstractie voor subschermen }
+
+{ TODO -cnavigatie : NavigeerNaar in interface zetten ter abstractie voor subschermen }
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
   System.Classes, Vcl.Graphics,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls,
-  ApplicationContext, Agent, Vcl.StdCtrls;
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
+  ApplicationContext, UserAgent, ProductAgent;
 
 const
   NAVHOME = 0;
@@ -20,7 +21,8 @@
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
   private
     FAppContext: TApplicationContext;
-    FAgent: TAgent;
+    FUserAgent: TUserAgent;
+    FProductAgent: TProductAgent;
     procedure FreeControlChildrenRec(AControl: TControl);
     procedure ConfigureerLayoutGridPanel(GridPanel: TGridPanel);
     procedure PlaatsControlOpGrid(GridPanel: TGridPanel; Control: TControl; RowI: Integer; ColI: Integer; RowSpan: Integer = 1;
@@ -42,13 +44,14 @@
 // Dit event wordt altijd aangeroepen, OnClose niet
 procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
 begin
-  FAgent.GebruikerAfmelden(FAppContext.UserServerServiceContext); // Antwoord wordt genegeerd
+  FUserAgent.GebruikerAfmelden(FAppContext.UserContext); // Antwoord wordt genegeerd
 end;
 
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
   FAppContext := TApplicationContext.Create();
-  FAgent := TAgent.Create();
+  FUserAgent := TUserAgent.Create();
+  FProductAgent := TProductAgent.Create();
   { TODO -cMain: Wat doet dit in de originele applicatie?: fUiContext.ImagesScherm := TImagesScherm.Create(self); }
   { TODO -cMain: Kijken of "VerwerkParamStrings;" nodig is }
   PanelMain.Parent := Self;
@@ -83,20 +86,20 @@
         // Schermen op GridPanel plaatsen
         // PlaatsControlOpGrid(GridPanel; Control; RowI; ColI; (opt) RowSpan; (opt)ColSpan);
         // Gebruikersgegevens scherm bovenaan.
-        NieuweGridControl := TFormGebruiker.Create(GridPanel, Self, FAppContext, FAppContext.UserServerServiceContext, FAgent);
+        NieuweGridControl := TFormGebruiker.Create(GridPanel, Self, FAppContext, FAppContext.UserContext, FUserAgent);
         PlaatsControlOpGrid(GridPanel, NieuweGridControl, 0, 0, 1, 2);
         // Zoekscherm daaronder links
-        NieuweGridControl := TFormZoekProducten.Create(GridPanel, Self, FAppContext);
+        NieuweGridControl := TFormZoekProducten.Create(GridPanel, Self, FAppContext, FProductAgent);
         PlaatsControlOpGrid(GridPanel, NieuweGridControl, 1, 0);
         // Resultaten scherm daaronder links
-        NieuweGridControl := TFormLogin.Create(GridPanel, Self, FAppContext, FAgent);
+        NieuweGridControl := TFormLogin.Create(GridPanel, Self, FAppContext, FUserAgent);
         PlaatsControlOpGrid(GridPanel, NieuweGridControl, 2, 0);
         // Rechts is helemaal voor detail scherm
-        NieuweGridControl := TFormLogin.Create(GridPanel, Self, FAppContext, FAgent);
+        NieuweGridControl := TFormLogin.Create(GridPanel, Self, FAppContext, FUserAgent);
         PlaatsControlOpGrid(GridPanel, NieuweGridControl, 1, 1, 2);
       end;
     NAVLOGIN:
-      NieuwScherm := TFormLogin.Create(PanelMain, Self, FAppContext, FAgent);
+      NieuwScherm := TFormLogin.Create(PanelMain, Self, FAppContext, FUserAgent);
   end;
 
   NieuwScherm.Parent := PanelMain;