Переместить слой карты в списке
procedure Move(CurIndex, NewIndex: Integer); reintroduce;
CurIndex
NewIndex