diff --git a/utillib.pas b/utillib.pas
index adf0e03..7808566 100644
--- a/utillib.pas
+++ b/utillib.pas
@@ -746,6 +746,8 @@ function removeString(s:string; var a:TStringDynArray; onlyOnce:boolean=TRUE; ci
 var i, lessen:integer;
 begin
 result:=FALSE;
+if a = NIL then
+  exit;
 lessen:=0;
 try
   for i:=length(a)-1 to 0 do