Index: AAPClient/UI/LoginScherm.pas
===================================================================
diff -u -r11 -r14
--- AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 11)
+++ AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 14)
@@ -5,7 +5,7 @@
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DrieKnoppenScherm, Vcl.ActnList,
-  Vcl.StdCtrls;
+  Vcl.StdCtrls, Images, Vcl.ImgList;
 
 type
   TfmLoginScherm = class(TfmDrieKnoppenScherm)
@@ -15,15 +15,15 @@
     edtPincode: TEdit;
     lblInitialen: TLabel;
     edtInitialen: TEdit;
-    procedure FormCreate(Sender: TObject);
     procedure edtInitialenKeyPress(Sender: TObject; var Key: Char);
-    procedure btnLinksOnderClick(Sender: TObject);
-    procedure btnRechtsOnderClick(Sender: TObject);
     procedure edtPincodeKeyUp(Sender: TObject; var Key: Word;
       Shift: TShiftState);
     procedure edtInitialenKeyUp(Sender: TObject; var Key: Word;
       Shift: TShiftState);
     procedure FormShow(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure actAfsluitenExecute(Sender: TObject);
+    procedure actVolgendeExecute(Sender: TObject);
   private
     procedure SetStatusButtonRechtsOnderaan;
   public
@@ -41,7 +41,7 @@
 
 {$R *.dfm}
 
-procedure TfmLoginScherm.btnLinksOnderClick(Sender: TObject);
+procedure TfmLoginScherm.actAfsluitenExecute(Sender: TObject);
 var
   Service: GebruikerServiceSoap;
   Request: GebruikerAfmeldenRequest;
@@ -65,7 +65,7 @@
   end;
 end;
 
-procedure TfmLoginScherm.btnRechtsOnderClick(Sender: TObject);
+procedure TfmLoginScherm.actVolgendeExecute(Sender: TObject);
 var
   Service: GebruikerServiceSoap;
   Request: GebruikerAanmeldenRequest;
@@ -98,7 +98,6 @@
   finally
     Request.Free;
   end;
-
 end;
 
 procedure TfmLoginScherm.edtInitialenKeyPress(Sender: TObject; var Key: Char);
@@ -124,8 +123,11 @@
 procedure TfmLoginScherm.FormCreate(Sender: TObject);
 begin
   inherited;
+
   actRechtsOnder := actVolgende;
   actLinksOnder := actAfsluiten;
+  btnRechtsOnder.Action := actRechtsOnder;
+  btnLinksOnder.Action := actAfsluiten;
 end;
 
 procedure TfmLoginScherm.FormShow(Sender: TObject);