procedure TDM1.ActDLLExistsExecute(Sender: TObject); //Проверка наличия DLL из списка
    function isFileOpen( var f: File ) : boolean;
    begin
       with TFileRec(f) do
         Result := (Handle<>0) and (Mode<>fmClosed);
    end;
var fn: string;  Ffs: File;
begin
  QDLLFiles.Open;
  while not QDLLFiles.Eof do
    begin
      fn:=DM1.QDLLFilesGoal.AsString+DM1.QDLLFilesName.AsString;
      if not FileExists(fn) then begin  
                                   DM1.QDLLFilesBODY.SaveToFile(fn); 
                                 end
                            else begin
                                 AssignFile(Ffs,fn); //Здесь во втором экземпляре ошибка I/O error 32  
                                 Reset(Ffs);
                                 if isFileOpen(Ffs) then //Если этой строчки нет, то ошибка в GetFileCRC(fn), поскольку там тоже есть AssignFile
                                    if GetFileCRC(fn)<>DM1.QDLLFilesCRC.Value then begin
                                                                                     DM1.QDLLFilesBODY.SaveToFile(fn);  
                                                                                   end;

                                 CloseFile(Ffs);
                              end;
      QDLLFiles.Next;
    end;
  QDLLFiles.Close;
end;

.....
  AssignFile(Fi,FileName);
  FileMode := 0;
  Reset(Fi);
.......