Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r30 -r31
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 30)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 31)
@@ -56,7 +56,6 @@
     Request.Header := Header;
     Request.PalletCode := edtPallet.Text;
 
-
     Response := Service.ValideerPalletCode(Request);
     try
       if Response.Header.Status <> '200' then begin
@@ -74,6 +73,7 @@
   finally
     Request.Free;
   end;
+  edtPallet.Text := '';
 end;
 
 procedure TfmPalletScherm.edtPalletKeyPress(Sender: TObject; var Key: Char);