diff --git a/Units/MMLCore/finder.pas b/Units/MMLCore/finder.pas
index 95b845f..7de3bad 100644
--- a/Units/MMLCore/finder.pas
+++ b/Units/MMLCore/finder.pas
@@ -475,7 +475,7 @@ begin
         inc(result);
       Inc(Ptr);
     end;
-    Inc(Ptr, PtrInc)
+    Inc(Ptr, PtrInc);
   end;
 
   TClient(Client).IOManager.FreeReturnData;