atari: if FindFirst fails, always call FindClose, just in case

git-svn-id: trunk@36504 -

rtl/atari/dos.pp

@@ -216,6 +216,7 @@ begin
   if dosResult < 0 then
     begin
       Error2DosError(dosResult);
+      FindClose(f);
       exit;
     end;