Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r58 -r59
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 58)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 59)
@@ -85,11 +85,10 @@
 
       fZoekViaPalletCodeResponse := Service.ZoekViaPalletCode(fZoekViaPalletCodeRequest);
       try
-        if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
-          Self.ModalResult := mrNo;
-        end else begin
+        if fZoekViaPalletCodeResponse.Header.Status = '200' then
+          Self.ModalResult := mrNo
+        else
           Self.ModalResult := mrOk;
-        end;
       finally
         fZoekViaPalletCodeResponse.Free;
       end;