Index: AAPClient/ProScanMain.pas =================================================================== diff -u -r17 -r18 --- AAPClient/ProScanMain.pas (.../ProScanMain.pas) (revision 17) +++ AAPClient/ProScanMain.pas (.../ProScanMain.pas) (revision 18) @@ -77,9 +77,12 @@ //HomeScherm tonen if fHuidigScherm.ClassType = TfmHomeScherm then begin fModalResult := fHuidigScherm.ShowModal; - if fHuidigScherm.ModalResult = mrRetry then begin - ShowMessage('retry'); + if fHuidigScherm.ModalResult = mrYes then begin + ShowMessage('Afmelden Producten'); end; + if fHuidigScherm.ModalResult = mrNo then begin + ShowMessage('Hernoem Pallet'); + end; if fHuidigScherm.ModalResult = mrOk then begin HuidigeGebruikerAfmelden; fHuidigScherm := fLoginScherm;