Index: ProScan/UI/BestaandePalletScherm.pas
===================================================================
diff -u -r396 -r476
--- ProScan/UI/BestaandePalletScherm.pas	(.../BestaandePalletScherm.pas)	(revision 396)
+++ ProScan/UI/BestaandePalletScherm.pas	(.../BestaandePalletScherm.pas)	(revision 476)
@@ -10,14 +10,12 @@
 type
   TfmBestaandePalletScherm = class(TfmDrieKnoppenScherm)
     lblBestaandePallet: TLabel;
-    btnHuidigeToelevering: TButton;
-    btnRework: TButton;
+    btnVervolledigen: TButton;
     btnExtraToelevering: TButton;
     btnTerug: TButton;
     procedure FormShow(Sender: TObject);
     procedure btnExtraToeleveringClick(Sender: TObject);
-    procedure btnReworkClick(Sender: TObject);
-    procedure btnHuidigeToeleveringClick(Sender: TObject);
+    procedure btnVervolledigenClick(Sender: TObject);
     procedure btnTerugClick(Sender: TObject);
   private
     function BepaalAantalToeleveringenOpPallet(PalletCode: string): integer;
@@ -43,21 +41,15 @@
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
 end;
 
-procedure TfmBestaandePalletScherm.btnHuidigeToeleveringClick(Sender: TObject);
+procedure TfmBestaandePalletScherm.btnVervolledigenClick(Sender: TObject);
+var
+  fAgent: TAgent;
 begin
   inherited;
-  if (BepaalAantalToeleveringenOpPallet(UiContext.Pallet) > 1) then begin
-    UiContext.Toelevering := '';
-  end;
-  PostMessage(Self.Handle,WM_Close,0,0);
-  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrDnaCode);
-end;
-
-procedure TfmBestaandePalletScherm.btnReworkClick(Sender: TObject);
-begin
-  inherited;
   if (BepaalAantalToeleveringenOpPallet(UiContext.Pallet) = 1) then begin
-    UiContext.Toelevering := TAgent.Create(UiContext).ZoekViaPalletCode(UiContext.Pallet).DnaCodes[0].Toelevering;
+    fAgent := TAgent.Create(UiContext);
+    UiContext.Toelevering := fAgent.ZoekViaPalletCode(UiContext.Pallet).DnaCodes[0].Toelevering;
+    fAgent.Free;
   end else if (BepaalAantalToeleveringenOpPallet(UiContext.Pallet) > 1) then begin
     UiContext.Toelevering := '';
   end;
@@ -88,8 +80,11 @@
   Response: ZoekViaPalletCodeResponse;
   DnaCodeTeller: integer;
   ToeleveringStringList: TStringList;
+  fAgent: TAgent;
 begin
-  Response := TAgent.Create(UiContext).ZoekViaPalletCode(UiContext.Pallet);
+  fAgent := TAgent.Create(UiContext);
+  Response := fAgent.ZoekViaPalletCode(UiContext.Pallet);
+  fAgent.Free;
   DnaCodeTeller := 0;
   try
     if Response.Header.Status = '200' then begin