* Change so that when FindFirst initially returns nonzero, FindClose is no longer needed (Windows compatible)

git-svn-id: trunk@13210 -

rtl/os2/sysutils.pp

@@ -617,7 +617,11 @@ begin
     Rslt.ExcludeAttr := 0;
     TRec (Rslt.Time).T := FStat^.TimeLastWrite;
     TRec (Rslt.Time).D := FStat^.DateLastWrite;
+  end else if (Rslt.Findhandle<>0) then
+  begin
+    FindClose(Rslt); 
   end;
+  
   Dispose (FStat);
 end;