Index: AAPClient/UI/LoginScherm2.pas
===================================================================
diff -u -r150 -r191
--- AAPClient/UI/LoginScherm2.pas	(.../LoginScherm2.pas)	(revision 150)
+++ AAPClient/UI/LoginScherm2.pas	(.../LoginScherm2.pas)	(revision 191)
@@ -5,7 +5,7 @@
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.pngimage, Vcl.ExtCtrls,
-  DrieKnoppenScherm, Images, Vcl.StdCtrls, Vcl.ActnList;
+  DrieKnoppenScherm, Images, Vcl.StdCtrls, Vcl.ActnList, Agent;
 
 type
   TfmLoginScherm2 = class(TfmDrieKnoppenScherm)
@@ -41,38 +41,21 @@
 
 procedure TfmLoginScherm2.actVolgendeExecute(Sender: TObject);
 var
-  Service: GebruikerServiceSoap;
-  Request: GebruikerAanmeldenRequest;
   Response: GebruikerAanmeldenResponse;
-  Header: RequestHeader;
 begin
-  Service := GebruikerService.GetGebruikerServiceSoap();
-  // request opbouwen
-  Request := GebruikerAanmeldenRequest.Create;
-  Header := RequestHeader.Create;
+  Response := fAgent.GebruikerAanmelden(edtInitialen.Text,edtPinCode.Text);
   try
-    Request.Initialen := edtInitialen.Text;
-    Request.LoginCode := edtPinCode.Text;
-    Header.Initialen := edtInitialen.Text;
-    Header.ComputerNaam := FullName();
-    Request.Header := Header;
-
-    Response := Service.GebruikerAanmelden(Request);
-    try
-      if Response.Header.Status <> '200' then begin
-        Self.ModalResult := mrLogin;
-        ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw')
-      end else begin
-        SetContext;
-        lblGebruiker.Caption := UiContext.Initialen;
-        lblGebruiker.Visible := true;
-        Self.ModalResult := mrHome;
-      end;
-    finally
-      Response.Free;
+    if Response.Header.Status <> '200' then begin
+      Self.ModalResult := mrLogin;
+      ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw')
+    end else begin
+      SetContext;
+      lblGebruiker.Caption := UiContext.Initialen;
+      lblGebruiker.Visible := true;
+      Self.ModalResult := mrHome;
     end;
   finally
-    Request.Free;
+    Response.Free;
   end;
 end;
 
@@ -111,25 +94,8 @@
 end;
 
 procedure TfmLoginScherm2.HuidigeGebruikerAfmelden;
-var
-  Service: GebruikerServiceSoap;
-  Request: GebruikerAfmeldenRequest;
-  Header: RequestHeader;
 begin
-  Service := GebruikerService.GetGebruikerServiceSoap();
-
-  Request := GebruikerAfmeldenRequest.Create;
-  Header := RequestHeader.Create;
-  try
-    Request.Initialen := UiContext.Initialen;
-    Request.LoginCode := UiContext.LoginCode;
-    Header.Initialen := UiContext.Initialen;
-    Request.Header := Header;
-
-    Service.GebruikerAfmelden(Request);
-  finally
-    Request.Free;
-  end;
+  fAgent.GebruikerAfmelden(UiContext.Initialen, UiContext.LoginCode);
 end;
 
 procedure TfmLoginScherm2.SetContext;