[dmdx]

Уважаемые спецы помогите решить проблемку.

Задача следующая:
При анализе документа я создаю столько файлов сколько у меня филиалов. затем раскидываю данны по анализу. Может получиться так что некоторые созданые файлы окажуться пустые. Вопрос заключается в следующем. Каким образом мне их (пустые файлы) лучше ликвидировать, удалить?

Проца обработки файлов

Код:

      AssignFile(F,Param.PatchIN+InFile);
      Reset(F);
      SetLength(Fn,Param.count); 
      for I := 0 to Param.count - 1 do
      begin
       AssignFile(Fn[i],Param.PatchIN+NewFileName(InFile,i));
       Rewrite(Fn[i]);
      end;
      // обработка
      ...
      // конец обработки
      for I := 0 to Param.Count - 1 do
        CloseFile(Fn[i]);
      CloseFile(F);
      DeleteFile(PChar(Param.PatchIN+InFile));