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

Написал тестовое приложение
1. Открываю карту.
2. Создаю объект.
3. Закрываю карту.
4. Удаляю карту.

Все работает как часы. Ниже текст. А каков алгоритм работы у Вас?
--------------------------------------------------
var
 sMapFileName : string;

procedure TForm1.btnOpenClick(Sender: TObject);
begin
sMapFileName := ExtractFilePath(Application.ExeName) + 'military.sitx';
mvMap.MapOpen(sMapFileName, true);
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('Не удалось удалить файл');
end;

procedure TForm1.btnCreateClick(Sender: TObject);
begin
 MapObj1.CreateObjectByExCode(0, KM_IDFLOAT2, 320000174, OL_SQUARE);

 MapPoint1.PlaceInp := PP_PLANE;
 MapPoint1.SetPoint(6196232, 7471608);
 MapObj1.Metric.Append(0,MapPoint1.point);
 MapPoint1.SetPoint(6197232, 7472608);
 MapObj1.Metric.Append(0,MapPoint1.point);
 MapPoint1.SetPoint(6196700, 7473608);
 MapObj1.Metric.Append(0,MapPoint1.point);
 MapPoint1.SetPoint(6196232, 7471608);
 MapObj1.Metric.Append(0,MapPoint1.point);

 MapObj1.Commit;

 MapObj1.Center;

end;