Index: AAPClient/UI/DrieKnoppenScherm.pas
===================================================================
diff -u -r55 -r63
--- AAPClient/UI/DrieKnoppenScherm.pas	(.../DrieKnoppenScherm.pas)	(revision 55)
+++ AAPClient/UI/DrieKnoppenScherm.pas	(.../DrieKnoppenScherm.pas)	(revision 63)
@@ -30,7 +30,7 @@
     fImagesScherm: TImagesScherm;
   protected
     function ComputerName: String;
-    procedure ToonPopupScherm(Melding, Actie: String);
+    function ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''): TModalResult;
   public
     { Public declarations }
   end;
@@ -80,14 +80,19 @@
   
 end;
 
-procedure TfmDrieKnoppenScherm.ToonPopupScherm(Melding, Actie: String);
+function TfmDrieKnoppenScherm.ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''): TModalResult;
 var
   PopupScherm: TfmPopupScherm;
 begin
   PopupScherm := TfmPopupScherm.Create(self);
   PopupScherm.lblWaarschuwing.Caption := Melding;
-  PopupScherm.btnPopupActie.Caption := Actie;
-  PopupScherm.ShowModal;
+  PopupScherm.btnPopupActie.Caption := Actie1;
+  if Actie2 <> '' then begin
+    PopupScherm.btnPopupActie.Width := 78;
+    PopupScherm.btnPopupActie2.Visible := True;
+    PopupScherm.btnPopupActie2.Caption := Actie2;
+  end;
+  result := PopupScherm.ShowModal;
 end;
 
 function TfmDrieKnoppenScherm.ComputerName: String;