Index: AAPClient/UI/UiContext.pas
===================================================================
diff -u -r73 -r75
--- AAPClient/UI/UiContext.pas	(.../UiContext.pas)	(revision 73)
+++ AAPClient/UI/UiContext.pas	(.../UiContext.pas)	(revision 75)
@@ -3,8 +3,9 @@
 interface
 
 const
-  mrLogin = 101;
-  mrHome  = 102;
+  mrLogin  = 101;
+  mrHome   = 102;
+  mrPallet = 103;
 
 type
   TUiContext = class
Index: AAPClient/UI/HomeScherm.dfm
===================================================================
diff -u -r22 -r75
--- AAPClient/UI/HomeScherm.dfm	(.../HomeScherm.dfm)	(revision 22)
+++ AAPClient/UI/HomeScherm.dfm	(.../HomeScherm.dfm)	(revision 75)
@@ -29,6 +29,7 @@
     ModalResult = 6
     TabOrder = 4
     WordWrap = True
+    OnClick = btnAfmeldenProductenClick
   end
   inherited alAlgemeen: TActionList
     inherited actAfsluiten: TAction
Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r73 -r75
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 73)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 75)
@@ -90,7 +90,7 @@
       else if fHuidigScherm.ModalResult = mrNo then begin
         ShowMessage('Hernoem Pallet');
       end
-      else if fHuidigScherm.ModalResult = mrOk then begin
+      else if fHuidigScherm.ModalResult = mrLogin then begin
         //HuidigeGebruikerAfmelden;
         fHuidigScherm := fLoginScherm;
       end;
Index: AAPClient/UI/HomeScherm.pas
===================================================================
diff -u -r24 -r75
--- AAPClient/UI/HomeScherm.pas	(.../HomeScherm.pas)	(revision 24)
+++ AAPClient/UI/HomeScherm.pas	(.../HomeScherm.pas)	(revision 75)
@@ -13,6 +13,7 @@
     btnAfmeldenProducten: TButton;
     procedure FormShow(Sender: TObject);
     procedure actAfsluitenExecute(Sender: TObject);
+    procedure btnAfmeldenProductenClick(Sender: TObject);
   private
     { Private declarations }
   public
@@ -24,14 +25,23 @@
 
 implementation
 
+uses
+  UiContext;
+
 {$R *.dfm}
 
 procedure TfmHomeScherm.actAfsluitenExecute(Sender: TObject);
 begin
   inherited;
-  //
+  Self.ModalResult := mrLogin;
 end;
 
+procedure TfmHomeScherm.btnAfmeldenProductenClick(Sender: TObject);
+begin
+  inherited;
+  Self.ModalResult := mrPallet;
+end;
+
 procedure TfmHomeScherm.FormShow(Sender: TObject);
 begin
   btnLinksOnder.Action := actAfsluiten;