Есть две связанные таблицы: 1 и 2 типа TADOTable. Связь по полю ID, где ID-Ключевое поле 1-й таблицы. Далее - нужна сортировка во по произвольному полю во 2-й таблице. Т.к. свойство SORT из Object Inspector недоступно, то делем обработку события TADOTable.AfterOpen

procedure TForm.AfterOpen(DataSet: TDataSet);
begin
ADOTable.Sort:='ИМЯ_ПОЛЯ';
end

Ессно, эти две таблицы связаны с TDBGrid-ами на форме (далее - таблицы)

Запускаем...
С виду все нормально, пока не обращаешь внимание на 2-ю таблицу - поля в колонке, по которой сортируется таблица - пустые. Дальше - хуже. При перемещении (при первом же) по 1-й таблице выкидывается сообщение "...exception class EOLEException with message 'Несовпадение типов'. ..." причем это исключение генерируется между BeforeScroll и AfterScroll.

Если сортировать позже - допустим, по событию OnTitleClick - то все нормально.

Ух... пока писал - нашел одну интересную вещь - исключение генерируется только при сортировке по полю, содержащему дату, но тогда из 2-й таблицы данные не отображаются вообще...
Можно было бы, конечно, оформить это дело в виде запроса (что, наверное, и придется делать), но мне уже из принципа интересно, что же все-таки происходит...

Извиняюсь - с OnTitleClick тот же баг с исключением, а поля никуда не пропадают - у меня просто 2-я таблица не вся была видна