Index: AAPClient/UI/HernoemPalletScherm.pas
===================================================================
diff -u -r241 -r242
--- AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 241)
+++ AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 242)
@@ -62,6 +62,7 @@
 procedure TfmHernoemPalletScherm.actHomeExecute(Sender: TObject);
 begin
   inherited;
+  PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrHome);
 end;
 
@@ -170,8 +171,10 @@
     result := Response;
     Response.Free;
   end;
-  if Self.ModalResult = mrHome then
+  if Self.ModalResult = mrHome then begin
+    PostMessage(Self.Handle,WM_Close,0,0);
     (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrHome);
+  end;
 end;
 
 procedure TfmHernoemPalletScherm.FormShow(Sender: TObject);