Index: PlanScan/Main.pas
===================================================================
diff -u -r272 -r273
--- PlanScan/Main.pas	(.../Main.pas)	(revision 272)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 273)
@@ -45,7 +45,7 @@
 implementation
 
 uses
-  Agent, typinfo;
+  Agent, typinfo, System.StrUtils;
 
 {$R *.dfm}
 
@@ -124,7 +124,8 @@
     if fZoekViaPalletResponse.Header.Status = '200' then begin
       DnaCodes := fZoekViaPalletResponse.DnaCodes;
       VulDnaCodeGridMetData(DnaCodes);
-      btnProboxetiket.Visible := true;
+      if StartsText('TBP',edtZoekInput.Text) then
+        btnProboxetiket.Visible := true;
     end else begin
       ShowMessage(fZoekViaPalletResponse.Header.Omschrijving);
     end;