function TForm1.DBGridEh1MoveRecords(Sender: TObject; BookmarkList: TBMListEh;
  ToRecNo, TreeLevel: Integer; CheckOnly: Boolean): Boolean;
begin
// Разрешаем перетаскивать только на 2ой и 3ий уровень. (Записи верхнего уровня имеют TreeLevel=1)
  if (TreeLevel >= 2) and (TreeLevel <= 3) then
  begin
    // Используем функцию перетаскивания по умолчанию
    Result := DBGridEh1.DefaultMoveDataRows(BookmarkList, ToRecNo, TreeLevel, CheckOnly);
  end else
  begin
    Result := False; //Не разрешаем перетаскивать
  end;
end;