diff --git a/installer/installer/AMXInstaller.exe b/installer/installer/AMXInstaller.exe
index 66490896..6511bfe7 100755
Binary files a/installer/installer/AMXInstaller.exe and b/installer/installer/AMXInstaller.exe differ
diff --git a/installer/installer/UnitFunctions.pas b/installer/installer/UnitFunctions.pas
index 0e403dfc..95ffc7f5 100755
--- a/installer/installer/UnitFunctions.pas
+++ b/installer/installer/UnitFunctions.pas
@@ -90,6 +90,7 @@ begin
           Result.Add(eSearch.Name)
       until FindNext(eSearch) <> 0;
     end;
+    SysUtils.FindClose(eSearch);
   end;
 end;
 
diff --git a/installer/installer/UnitInstall.pas b/installer/installer/UnitInstall.pas
index 6dc06342..341d44b3 100755
--- a/installer/installer/UnitInstall.pas
+++ b/installer/installer/UnitInstall.pas
@@ -206,8 +206,10 @@ end;
 function FSize(eFile: String): Cardinal;
 var eRec: TSearchRec;
 begin
-  if FindFirst(eFile, faAnyFile, eRec) = 0 then
-    Result := eRec.Size
+  if FindFirst(eFile, faAnyFile, eRec) = 0 then begin
+    Result := eRec.Size;
+    SysUtils.FindClose(eRec);
+  end
   else
     Result := 0;
 end;