Index: AAPClient/UI/HernoemPalletScherm.dfm
===================================================================
diff -u
--- AAPClient/UI/HernoemPalletScherm.dfm	(revision 0)
+++ AAPClient/UI/HernoemPalletScherm.dfm	(revision 97)
@@ -0,0 +1,15 @@
+inherited fmHernoemPalletScherm: TfmHernoemPalletScherm
+  PixelsPerInch = 96
+  TextHeight = 19
+  inherited btnLinksOnder: TButton
+    Action = nil
+  end
+  inherited alAlgemeen: TActionList
+    inherited actVolgende: TAction
+      OnExecute = actVolgendeExecute
+    end
+    inherited actHome: TAction
+      OnExecute = actHomeExecute
+    end
+  end
+end
Index: AAPClient/UI/HernoemPalletScherm.pas
===================================================================
diff -u
--- AAPClient/UI/HernoemPalletScherm.pas	(revision 0)
+++ AAPClient/UI/HernoemPalletScherm.pas	(revision 97)
@@ -0,0 +1,50 @@
+unit HernoemPalletScherm;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DrieKnoppenScherm, Vcl.ActnList,
+  Vcl.StdCtrls;
+
+type
+  TfmHernoemPalletScherm = class(TfmDrieKnoppenScherm)
+    procedure FormShow(Sender: TObject);
+    procedure actHomeExecute(Sender: TObject);
+    procedure actVolgendeExecute(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  fmHernoemPalletScherm: TfmHernoemPalletScherm;
+
+implementation
+
+uses
+  UiContext;
+
+{$R *.dfm}
+
+procedure TfmHernoemPalletScherm.actHomeExecute(Sender: TObject);
+begin
+  inherited;
+  Self.ModalResult := mrHome;
+end;
+
+procedure TfmHernoemPalletScherm.actVolgendeExecute(Sender: TObject);
+begin
+  inherited;
+  //
+end;
+
+procedure TfmHernoemPalletScherm.FormShow(Sender: TObject);
+begin
+  inherited;
+
+  btnRechtsOnder.Action := actVolgende;
+end;
+
+end.