Удаление листа многолистовой карты

А как узнать значение счетчика ссылок?

Карта у меня открывается, подключается матрица высот. После я закрываю хандл карты.

Удаление при выполнении следующих действий работает правильно

1. Открываем проект из двух карт sitx - mpt.
2. Добавляем к нему матрицу - mtw.
3. Закрываем проект
4. Удаляем файл mpt?

var
 sMapFileName : string;

procedure TForm1.btnOpenClick(Sender: TObject);
begin
// sMapFileName := ExtractFilePath(Application.ExeName) + 'military.sitx';
sMapFileName := ExtractFilePath(Application.ExeName) + 'military1.mpt';
mvMap.MapOpen(sMapFileName, true);
mvMap.MapMtrs.Append(ExtractFilePath(Application.ExeName) + 'new.mtw');
end;

procedure TForm1.BtnCloseClick(Sender: TObject);
begin
 mvMap.MapClose;
end;

procedure TForm1.btnDeleteClick(Sender: TObject);
var
 ii : boolean;
begin
ii := DeleteFile(sMapFileName);
if not ii
   then ShowMessage('Не удалось удалить файл ' + sMapFileName)
   else ShowMessage('Файл удален ' + sMapFileName);

end;

У меня таже проблема:

var
 Form1: TForm1;
 sMapFileName : string;

implementation

{$R *.dfm}

procedure TForm1.btnDeleteClick(Sender: TObject);
var
ii : boolean;
cDir : string;
bDir : string;
FSearch : TSearchRec;
begin

// Здесь все работает хорошо, в точности, как написано в контрольном примере выше.

cDir := ExtractFilePath(Application.ExeName) + 'Data\Map\*.*';
  If FindFirst(cDir, faAnyFile, FSearch) = 0 then
  begin
  repeat
  bDir := ExtractFilePath(Application.ExeName) + 'Data\Map\';
  sMapFileName := bDir+FSearch.Name;

  ShowMessage ('FileName = '+sMapFileName);

  ii := DeleteFile(sMapFileName);

  If not ii
  then ShowMessage('Не удалось удалить файл ' + sMapFileName)
  else ShowMessage('Файл удален ' + sMapFileName);

  ShowMessage ('ii = '+BoolToStr(ii));

  until FindNext(FSearch) <> 0;
  end;
 FindClose(FSearch);

// А вот здесь уже не работает. Не хочет удалять файлы в папке LOG !!! Что я не делаю не правильно?

cDir := ExtractFilePath(Application.ExeName) + 'Data\Map\LOG\*.*';
  If FindFirst(cDir, faAnyFile, FSearch) = 0 then
  begin
  repeat
  bDir := ExtractFilePath(Application.ExeName) + 'Data\Map\LOG';
  sMapFileName := bDir+FSearch.Name;

  ShowMessage ('FileName = '+sMapFileName);

  ii := DeleteFile(sMapFileName);

  If not ii
  then ShowMessage('Не удалось удалить файл ' + sMapFileName)
  else ShowMessage('Файл удален ' + sMapFileName);

  ShowMessage ('ii = '+BoolToStr(ii));

  until FindNext(FSearch) <> 0;
  end;
 FindClose(FSearch);

end;

procedure TForm1.btnOpenClick(Sender: TObject);
begin
sMapFileName := ExtractFilePath(Application.ExeName) + 'Data\Map\Map.sit';
mvMap.MapOpen(sMapFileName, true);
end;

procedure TForm1.btnCloseClick(Sender: TObject);
begin
mvMap.MapClose;
end;

end.

Большое спасибо за ответ!

Да, так работает:

Const
sMapFile = 'd:\PRACTIKA\DeleteMap\Data\Map\Map.sit';

var
 Form1: TForm1;
 sMapFileName : string;

implementation

{$R *.dfm}

procedure TForm1.btnDeleteClick(Sender: TObject);
var
cDir : string;
bDir : string;
FSearch : TSearchRec;
begin
cDir := ExtractFilePath(Application.ExeName) + 'Data\Map\*.*';
If FindFirst(cDir, faAnyFile, FSearch) = 0 then
begin
repeat
bDir := ExtractFilePath(Application.ExeName) + 'Data\Map\';
sMapFileName := bDir+FSearch.Name;
DeleteFile(sMapFileName);
until FindNext(FSearch) <> 0;
end;
FindClose(FSearch);
RmDir(bDir);
end;

procedure TForm1.btnOpenClick(Sender: TObject);
begin
sMapFileName := ExtractFilePath(Application.ExeName) + 'Data\Map\Map.sit';
mvMap.MapOpen(sMapFileName, true);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
cDir : string;
sDF1, sDF2, sDF3, sDF4, sDF5, sDF6, sDF7, sDF8, sDF9  : string;
begin
cDir := ExtractFilePath(sMapFile);
sDF1 := cDir + 'LOG\Map.sit.log';
sDF2 := cDir + 'LOG\Map.sit.TAC';
sDF3 := cDir + 'LOG\Map.sit.TACX';
sDF4 := cDir + 'LOG\Map.^SD';
sDF5 := cDir + 'LOG\Map.^SG';
sDF6 := cDir + 'LOG\Map.^SH';
sDF7 := cDir + 'LOG\Map.^SS';
sDF8 := cDir + 'LOG\Map.sit.vclx';
sDF9 := cDir + 'LOG\Uzor.edt';
DeleteFile(sDF1);
DeleteFile(sDF2);
DeleteFile(sDF3);
DeleteFile(sDF4);
DeleteFile(sDF5);
DeleteFile(sDF6);
DeleteFile(sDF7);
DeleteFile(sDF8);
DeleteFile(sDF9);
cDir := cDir + 'LOG';
RmDir(cDir);
end;

procedure TForm1.btnCloseClick(Sender: TObject);
begin
mvMap.MapClose;
end;

Немного странновато выглядит код по удалению файлов из папки LOG,
в том плане, что отличается от более менее логично структурированного удаления файлов из папки Map.
Но ладно, главное работает!  Спасибо.