[fpc-pascal]How to assign a file? Please help

[Marco van de Voort]

> ...
> procedure test(name:string);
> var fin:file;
> begin
>   assign(fin,name);  {assign it}
>   reset(fin,1);   {open for reading}
>   if ioresult<>0 then writeln('Error!!');
>   close(fin);     {do nothing and close it immediately}
> end;
> ...
> And call this procedure on many files. After some openings it returns an error
> (Too many files opened).
> 
> With Sysutils (fileread,fileopen etc.) it works, maybe an error in System unit ?

Do you do a recursive search with findfirst in the code that calls the above
procedure? If so, are all findfirst matched with a findclose?