Index: AAPClient/UI/InfoLogScherm.dfm
===================================================================
diff -u -r84 -r92
--- AAPClient/UI/InfoLogScherm.dfm	(.../InfoLogScherm.dfm)	(revision 84)
+++ AAPClient/UI/InfoLogScherm.dfm	(.../InfoLogScherm.dfm)	(revision 92)
@@ -61,9 +61,42 @@
     ScrollBars = ssNone
     TabOrder = 3
   end
+  object btnEerst: TButton [10]
+    Left = 199
+    Top = 58
+    Width = 25
+    Height = 25
+    TabOrder = 4
+    OnClick = btnEerstClick
+  end
+  object btnVorige: TButton [11]
+    Left = 199
+    Top = 89
+    Width = 25
+    Height = 25
+    TabOrder = 5
+    OnClick = btnVorigeClick
+  end
+  object btnVolgende: TButton [12]
+    Left = 199
+    Top = 120
+    Width = 25
+    Height = 25
+    TabOrder = 6
+    OnClick = btnVolgendeClick
+  end
+  object btnLaatst: TButton [13]
+    Left = 199
+    Top = 151
+    Width = 25
+    Height = 25
+    TabOrder = 7
+    OnClick = btnLaatstClick
+  end
   inherited alAlgemeen: TActionList
     inherited actVolgende: TAction
       Caption = 'actVolgende'
+      OnExecute = actVolgendeExecute
     end
     inherited actHome: TAction
       Caption = 'actHome'
@@ -76,6 +109,10 @@
     end
     inherited actOngedaanMaken: TAction
       Caption = 'actOngedaanMaken'
+      OnExecute = actOngedaanMakenExecute
     end
+    inherited actSluiten: TAction
+      OnExecute = actSluitenExecute
+    end
   end
 end
Index: AAPClient/UI/InfoLogScherm.pas
===================================================================
diff -u -r86 -r92
--- AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 86)
+++ AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 92)
@@ -16,11 +16,19 @@
     lblSlash: TLabel;
     lblAantallen: TLabel;
     sgToeleveringData: TStringGrid;
+    btnEerst: TButton;
+    btnVorige: TButton;
+    btnVolgende: TButton;
+    btnLaatst: TButton;
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure actSluitenExecute(Sender: TObject);
     procedure actOngedaanMakenExecute(Sender: TObject);
     procedure actVolgendeExecute(Sender: TObject);
+    procedure btnEerstClick(Sender: TObject);
+    procedure btnVorigeClick(Sender: TObject);
+    procedure btnVolgendeClick(Sender: TObject);
+    procedure btnLaatstClick(Sender: TObject);
   private
     ToonGescand: boolean;
     function ToeleveringDataOphalen(): ZoekViaToeleveringResponse;
@@ -95,6 +103,32 @@
   VulGridMetToeleveringData(Response.DnaCodes);
 end;
 
+procedure TfmInfoLogScherm.btnEerstClick(Sender: TObject);
+begin
+  inherited;
+  sgToeleveringData.Row := 1;
+end;
+
+procedure TfmInfoLogScherm.btnLaatstClick(Sender: TObject);
+begin
+  inherited;
+  sgToeleveringData.Row := sgToeleveringData.RowCount - 1;
+end;
+
+procedure TfmInfoLogScherm.btnVolgendeClick(Sender: TObject);
+begin
+  inherited;
+  if sgToeleveringData.Row < sgToeleveringData.RowCount - 1 then
+    sgToeleveringData.Row := sgToeleveringData.Row + 1;
+end;
+
+procedure TfmInfoLogScherm.btnVorigeClick(Sender: TObject);
+begin
+  inherited;
+  if sgToeleveringData.Row > 1 then
+    sgToeleveringData.Row := sgToeleveringData.Row - 1;
+end;
+
 procedure TfmInfoLogScherm.FormCreate(Sender: TObject);
 begin
   inherited;