Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r241 -r242
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 241)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 242)
@@ -39,6 +39,7 @@
 procedure TfmPalletScherm.actHomeExecute(Sender: TObject);
 begin
   inherited;
+  PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrHome);
 end;
 
@@ -83,6 +84,7 @@
   end else begin
     Self.ModalResult := mrPallet;
   end;
+  PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;