* Fixed mem-leaks

git-svn-id: trunk@35754 -

packages/fppkg/src/pkgoptions.pp

@@ -350,6 +350,7 @@ begin
             IncludeFile(FileDir+SR.Name);
           until FindNext(SR)<>0;
         end;
+      FindClose(SR);
     end
   else
     log(llWarning, SLogIncludeFileMaskDoesNotExist, [FileDir, AFileNameMask]);

packages/fppkg/src/pkguninstalledsrcsrepo.pp

@@ -143,7 +143,7 @@ begin
           FindClose(SRF);
       until FindNext(SRD)<>0;
     end;
-  FindClose(SRF);
+  FindClose(SRD);
 
   Result:=true;
 end;