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;