Index: AAPClient/UI/HomeScherm.pas
===================================================================
diff -u -r75 -r94
--- AAPClient/UI/HomeScherm.pas	(.../HomeScherm.pas)	(revision 75)
+++ AAPClient/UI/HomeScherm.pas	(.../HomeScherm.pas)	(revision 94)
@@ -14,6 +14,7 @@
     procedure FormShow(Sender: TObject);
     procedure actAfsluitenExecute(Sender: TObject);
     procedure btnAfmeldenProductenClick(Sender: TObject);
+    procedure btnHernoemPalletClick(Sender: TObject);
   private
     { Private declarations }
   public
@@ -42,6 +43,12 @@
   Self.ModalResult := mrPallet;
 end;
 
+procedure TfmHomeScherm.btnHernoemPalletClick(Sender: TObject);
+begin
+  inherited;
+  Self.ModalResult := mrHernoemPallet;
+end;
+
 procedure TfmHomeScherm.FormShow(Sender: TObject);
 begin
   btnLinksOnder.Action := actAfsluiten;