Index: PlanScan/Main.pas
===================================================================
diff -u -r456 -r481
--- PlanScan/Main.pas	(.../Main.pas)	(revision 456)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 481)
@@ -78,8 +78,12 @@
 end;
 
 procedure TfmMain.HuidigeGebruikerAfmelden;
+var
+  fAgent: TAgent;
 begin
-  TAgent.Create(UiContext).GebruikerAfmelden(UiContext.Initialen, UiContext.LoginCode);
+  fAgent := TAgent.Create(UiContext);
+  fAgent.GebruikerAfmelden(UiContext.Initialen, UiContext.LoginCode);
+  fAgent.Free;
   UiContext.Initialen := '';
   UiContext.LoginCode := '';
   lblInitialen.Caption := '';
@@ -110,12 +114,15 @@
   fLoginScherm: TfmLogin;
   fGebruikerAanmeldenResponse: GebruikerAanmeldenResponse;
   fInloggenGeslaagd: boolean;
+  fAgent: TAgent;
 begin
   fInloggenGeslaagd := true;
   fLoginScherm := TfmLogin.Create(self);
   fLoginScherm.ShowModal;
   if fLoginScherm.ModalResult = mrOk then begin
-    fGebruikerAanmeldenResponse := TAgent.Create(UiContext).GebruikerAanmelden(fLoginScherm.edtInitialen.Text, fLoginScherm.edtLoginCode.Text);
+    fAgent := TAgent.Create(UiContext);
+    fGebruikerAanmeldenResponse := fAgent.GebruikerAanmelden(fLoginScherm.edtInitialen.Text, fLoginScherm.edtLoginCode.Text);
+    fAgent.Free;
     try
       if fGebruikerAanmeldenResponse.Header.Status <> '200' then begin
         ShowMessage(fGebruikerAanmeldenResponse.Header.Omschrijving);