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;