VVisible := FMarkSystem.MarkDb.GetMarkVisible(AMark);
    if AAsNewMark then begin
      VSourceMark := nil;
    end else begin
      VSourceMark := AMark;
    end;
    if ADescription <> '' then begin
      VMark := FMarkSystem.MarkDb.Factory.ModifyName(AMark, '', ADescription);
    end;
    VMark := FMarkSystem.MarkDb.Factory.ModifyGeometry(VMark, AGeometry);