Как открыть болeе 15 файлов одновременно?

Для того, чтобы открывать более 15 файлов одновременно, используйте в программе модуль (приведенный ниже), позволяющий открывать одновременно до 255 файлов:

{$IFDEF DPMI}
   STOP COMPILE ! Only for real mode !
   {$ENDIF}
 
   Unit Extend; {(C) 1996 by Pavel Nikiforov}
   interface
   implementation
 
   procedure Setup;
   type PJFT=^TJFT;
        TJFT=record
               Num:word;
               Tbl:PChar;
             end;
 
   var MyJFT:PChar;
       P:PJFT;
 
   begin
     getmem(MyJFT,255);
     FillChar(MyJFT[0],255,$FF);
     P:=Ptr(PrefixSeg,$32);
     move(P^.TBL^,MyJFT^,P^.Num);
     P^.TBL:=MyJFT;
     P^.Num:=255;
   end;
 
   begin
     Setup;
   end.