Утечка памяти

   TMAPREGISTEREX MapReg;
   TLISTREGISTER ListReg;
   TSHEETNAMES SheetNames;

   memset(&MapReg, 0, sizeof(MapReg));
   memset(&ListReg, 0, sizeof(ListReg));
   memset(&SheetNames, 0, sizeof(SheetNames));

   MkDir(GetCurrentDir() + L"//Tresh//");

   for (int MapIndex = 0; MapIndex < 300; MapIndex++) // Попробуем создать подряд 300 карт
   {
      UnicodeString MapPath = GetCurrentDir() + L"\\Tresh\\Map" + static_cast<UnicodeString>(MapIndex) + ".map"; // Путь к создаваемой карте
      UnicodeString MapStc = RSCButtonEdit->Text; // Путь к классификатору
      Maptype::HMAP Map = mapCreateMapPro(MapPath.w_str (), MapStc.w_str(), &MapReg, &ListReg, &SheetNames, L"", L"", 0); // Создаю карту
                // Пустая карта готова
      mapCloseMap(Map); // Закрываю карту
      Map = 0;
   }

        int MapIndex = 0;
   UnicodeString MapPath = GetCurrentDir() + L"\\Tresh\\Map" + static_cast<UnicodeString>(MapIndex) + ".map"; // Путь для открытия первой карты
   while (FileExists(MapPath)) // Пока файл сущетвует
   {
      Maptype::HMAP Map = mapOpenMapUn(MapPath.w_str()); // Открываю карту
                // Пустая карта открыта
      mapCloseMap(Map);
      Map = 0; // Закрываю карту

      MapIndex++;
      MapPath = GetCurrentDir() + L"\\Tresh\\Map" + static_cast<UnicodeString>(MapIndex) + ".map"; // Путь для открытия на следующей итерации
   }