Index: AAPClient/UI/CommonFunctions.pas
===================================================================
diff -u -r201 -r334
--- AAPClient/UI/CommonFunctions.pas	(.../CommonFunctions.pas)	(revision 201)
+++ AAPClient/UI/CommonFunctions.pas	(.../CommonFunctions.pas)	(revision 334)
@@ -7,16 +7,26 @@
   private
   public
     class function VerkorteDnaCode(DnaCode: string): string;
+    class function IsKaderdeurLocatie(GescandeInput: string): boolean;
   end;
 
 
 implementation
 
+uses
+  System.RegularExpressions, System.SysUtils;
 { TCommonFunctions }
 
 class function TCommonFunctions.VerkorteDnaCode(DnaCode: string): string;
 begin
   result := Copy(DnaCode,2,5);
 end;
 
+class function TCommonFunctions.IsKaderdeurLocatie(GescandeInput: string): boolean;
+begin
+  result := false;
+  if TRegEx.IsMatch(UpperCase(GescandeInput),'10[kK]..[tT]0.') then
+    result := true;
+end;
+
 end.