Обработать событие OnColumnMoved

Если в событие OnColumnMoved добавить строку:

DBGrid1.Columns[ToIndex].Index := FromIndex;

то попытка переместить столбец будет игнорироваться.