diff --git a/src/ce_dmdwrap.pas b/src/ce_dmdwrap.pas
index 1ce0a551..e864e4e2 100644
--- a/src/ce_dmdwrap.pas
+++ b/src/ce_dmdwrap.pas
@@ -968,7 +968,8 @@ var
 begin
   for str1 in fCustom do if str1 <> '' then
   begin
-    if str1[1] = ';' then
+    if length(str) > 0 then
+      if str1[1] = ';' then
         continue;
     if length(str1) > 1 then
       if str1[1..2] = '//' then