added two FindCloses

installer/installer/UnitFunctions.pas

@@ -90,6 +90,7 @@ begin
           Result.Add(eSearch.Name)
       until FindNext(eSearch) <> 0;
     end;
+    SysUtils.FindClose(eSearch);
   end;
 end;
 

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;