Index: AAPClient/UI/InfoLogScherm.pas
===================================================================
diff -u -r132 -r139
--- AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 132)
+++ AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 139)
@@ -24,7 +24,6 @@
     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);
@@ -74,7 +73,7 @@
   fWaarschuwingModalResult: TModalResult;
 begin
   Self.ModalResult := mrInfoLog;
-  fWaarschuwingModalResult := ToonPopupScherm('Scan ongedaan maken?'+sgToeleveringData.Rows[sgToeleveringData.Row][0],'Ja','Nee');
+  fWaarschuwingModalResult := ToonPopupScherm('Scan ongedaan maken?'+sgToeleveringData.Rows[sgToeleveringData.Row][0],'Ja','Nee',true);
 
   if fWaarschuwingModalResult = mrOk then begin
     Service := DnaCodeService.GetDnaCodeServiceSoap();
@@ -106,13 +105,6 @@
   end;
 end;
 
-procedure TfmInfoLogScherm.actVolgendeExecute(Sender: TObject);
-var
-  Response: ZoekViaToeleveringResponse;
-begin
-  inherited;
-end;
-
 procedure TfmInfoLogScherm.btnEerstClick(Sender: TObject);
 begin
   inherited;