Index: ProScan/ProScanMain.pas
===================================================================
diff -u -r396 -r472
--- ProScan/ProScanMain.pas	(.../ProScanMain.pas)	(revision 396)
+++ ProScan/ProScanMain.pas	(.../ProScanMain.pas)	(revision 472)
@@ -42,7 +42,7 @@
 procedure TfmProScanHoofdscherm.FormClose(Sender: TObject;
   var Action: TCloseAction);
 begin
-  TAgent.Create(UiContext).GebruikerAfmelden();
+  HuidigeGebruikerAfmelden();
 end;
 
 procedure TfmProScanHoofdscherm.FormCreate(Sender: TObject);
@@ -63,8 +63,12 @@
 end;
 
 procedure TfmProScanHoofdscherm.HuidigeGebruikerAfmelden;
+var
+  fAgent: TAgent;
 begin
-  TAgent.Create(UiContext).GebruikerAfmelden();
+  fAgent := TAgent.Create(UiContext);
+  fAgent.GebruikerAfmelden();
+  fAgent.Free;
 end;
 
 procedure TfmProScanHoofdscherm.NavigeerNaar(mr: TModalResult);