diff --git a/src/ce_common.pas b/src/ce_common.pas
index 5b999994..7825c03e 100644
--- a/src/ce_common.pas
+++ b/src/ce_common.pas
@@ -578,6 +578,10 @@ var
   pth, ext, fname: string;
   files: TStringList;
 begin
+  result := false;
+  if aPath = '' then
+    exit;
+  //
   if aPath[length(aPath)] = '*' then
   begin
     pth := aPath[1..length(aPath)-1];