Index: ProScan/UI/LoginScherm2.pas
===================================================================
diff -u -r464 -r472
--- ProScan/UI/LoginScherm2.pas	(.../LoginScherm2.pas)	(revision 464)
+++ ProScan/UI/LoginScherm2.pas	(.../LoginScherm2.pas)	(revision 472)
@@ -43,8 +43,10 @@
 procedure TfmLoginScherm2.actVolgendeExecute(Sender: TObject);
 var
   Response: GebruikerAanmeldenResponse;
+  fAgent: TAgent;
 begin
-  Response := TAgent.Create(UiContext).GebruikerAanmelden(edtInitialen.Text,edtPinCode.Text);
+  fAgent := TAgent.Create(UiContext);
+  Response := fAgent.GebruikerAanmelden(edtInitialen.Text,edtPinCode.Text);
   try
     if Response.Header.Status <> '200' then begin
       Self.ModalResult := mrLogin;
@@ -57,6 +59,7 @@
     end;
   finally
     Response.Free;
+    fAgent.Free;
   end;
   PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
@@ -92,8 +95,13 @@
 end;
 
 procedure TfmLoginScherm2.HuidigeGebruikerAfmelden;
+var
+  fAgent: TAgent;
+  fGelukt: boolean;
 begin
-  TAgent.Create(UiContext).GebruikerAfmelden();
+  fAgent := TAgent.Create(UiContext);
+  fGelukt := fAgent.GebruikerAfmelden();
+  fAgent.Free;
 end;
 
 procedure TfmLoginScherm2.imgAfmeldenClick(Sender: TObject);