Index: AAPClient/WS/Agent.pas
===================================================================
diff -u -r192 -r193
--- AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 192)
+++ AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 193)
@@ -17,6 +17,7 @@
     function GebruikerAanmelden(Initialen: string; LoginCode: string): GebruikerAanmeldenResponse;
     function GebruikerAfmelden(): boolean;
     function ValideerPalletCode(PalletCode: string): ValideerPalletCodeResponse;
+    function ZoekViaPalletCode(PalletCode: string): ZoekViaPalletCodeResponse;
   end;
 
 implementation
@@ -101,6 +102,27 @@
 
 end;
 
+function TAgent.ZoekViaPalletCode(
+  PalletCode: string): ZoekViaPalletCodeResponse;
+var
+  Service: DnaCodeServiceSoap;
+  Header: DnaCodeService.RequestHeader;
+  fZoekViaPalletCodeRequest: ZoekViaPalletCodeRequest;
+begin
+  fZoekViaPalletCodeRequest := ZoekViaPalletCodeRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    fZoekViaPalletCodeRequest.Header := Header;
+    fZoekViaPalletCodeRequest.PalletCode := PalletCode;
+
+    result := Service.ZoekViaPalletCode(fZoekViaPalletCodeRequest);
+  finally
+    fZoekViaPalletCodeRequest.Free;
+  end;
+end;
+
 function TAgent.ComputerName: String;
 var
   buffer: array[0..255] of char;
Index: AAPClient/UI/LoginScherm2.pas
===================================================================
diff -u -r192 -r193
--- AAPClient/UI/LoginScherm2.pas	(.../LoginScherm2.pas)	(revision 192)
+++ AAPClient/UI/LoginScherm2.pas	(.../LoginScherm2.pas)	(revision 193)
@@ -43,7 +43,7 @@
 var
   Response: GebruikerAanmeldenResponse;
 begin
-  Response := fAgent.GebruikerAanmelden(edtInitialen.Text,edtPinCode.Text);
+  Response := TAgent.Create(UiContext).GebruikerAanmelden(edtInitialen.Text,edtPinCode.Text);
   try
     if Response.Header.Status <> '200' then begin
       Self.ModalResult := mrLogin;
@@ -95,7 +95,7 @@
 
 procedure TfmLoginScherm2.HuidigeGebruikerAfmelden;
 begin
-  fAgent.GebruikerAfmelden();
+  TAgent.Create(UiContext).GebruikerAfmelden();
 end;
 
 procedure TfmLoginScherm2.SetContext;
Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r192 -r193
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 192)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 193)
@@ -29,7 +29,7 @@
 implementation
 
 uses
-  DnaCodeService, UiContext;
+  DnaCodeService, UiContext, Agent;
 
 {$R *.dfm}
 
@@ -41,67 +41,40 @@
 
 procedure TfmPalletScherm.actVolgendeExecute(Sender: TObject);
 var
-  Service: DnaCodeServiceSoap;
-  fValideerPalletCodeRequest: ValideerPalletCodeRequest;
   fValideerPalletCodeResponse: ValideerPalletCodeResponse;
-  Header: RequestHeader;
-  fZoekViaPalletCodeRequest: ZoekViaPalletCodeRequest;
   fZoekViaPalletCodeResponse: ZoekViaPalletCodeResponse;
   fPalletGevalideerd: boolean;
 begin
   fPalletGevalideerd := false;
-  Service := DnaCodeService.GetDnaCodeServiceSoap();
 
   // pallet code valideren
-  fValideerPalletCodeRequest := ValideerPalletCodeRequest.Create;
-  Header := RequestHeader.Create;
+  fValideerPalletCodeResponse := TAgent.Create(UiContext).ValideerPalletCode(edtPallet.Text);
   try
-    Header.Initialen := UiContext.Initialen;
-    Header.ComputerNaam := FullName();
-    fValideerPalletCodeRequest.Header := Header;
-    fValideerPalletCodeRequest.PalletCode := edtPallet.Text;
-
-    fValideerPalletCodeResponse := fAgent.ValideerPalletCode(edtPallet.Text);
-    try
-      if fValideerPalletCodeResponse.Header.Status <> '200' then begin
-        Self.ModalResult := mrPallet;
-        ToonPopupScherm(fValideerPalletCodeResponse.Header.Omschrijving, 'Scan opnieuw');
-        edtPallet.Text := '';
-        SetContext;
-      end else begin
-        fPalletGevalideerd := true;
-      end;
-    finally
-      fValideerPalletCodeResponse.Free;
+    if fValideerPalletCodeResponse.Header.Status <> '200' then begin
+      Self.ModalResult := mrPallet;
+      ToonPopupScherm(fValideerPalletCodeResponse.Header.Omschrijving, 'Scan opnieuw');
+      edtPallet.Text := '';
+      SetContext;
+    end else begin
+      fPalletGevalideerd := true;
     end;
   finally
-    fValideerPalletCodeRequest.Free;
+    fValideerPalletCodeResponse.Free;
   end;
 
   //checken of pallet in gebruik is indien het vorige geslaagd is
   if fPalletGevalideerd then begin
-    fZoekViaPalletCodeRequest := ZoekViaPalletCodeRequest.Create;
-    Header := RequestHeader.Create;
+    fZoekViaPalletCodeResponse := TAgent.Create(UiContext).ZoekViaPalletCode(edtPallet.Text);
     try
-      Header.Initialen := UiContext.Initialen;
-      Header.ComputerNaam := FullName();
-      fZoekViaPalletCodeRequest.Header := Header;
-      fZoekViaPalletCodeRequest.PalletCode := UiContext.Pallet;
-
-      fZoekViaPalletCodeResponse := Service.ZoekViaPalletCode(fZoekViaPalletCodeRequest);
-      try
-        if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
-          UiContext.Toelevering := fZoekViaPalletCodeResponse.DnaCodes[0].Toelevering;
-          Self.ModalResult := mrBestaandePallet;
-        end else begin
-          UiContext.Toelevering := '';
-          Self.ModalResult := mrDnaCode;
-        end;
-      finally
-        fZoekViaPalletCodeResponse.Free;
+      if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
+        UiContext.Toelevering := fZoekViaPalletCodeResponse.DnaCodes[0].Toelevering;
+        Self.ModalResult := mrBestaandePallet;
+      end else begin
+        UiContext.Toelevering := '';
+        Self.ModalResult := mrDnaCode;
       end;
     finally
-      fZoekViaPalletCodeRequest.Free;
+      fZoekViaPalletCodeResponse.Free;
     end;
 
   end else begin