Сортировка столбцов компонента dbgrid в DELPHI!!!!

Сортирует все кроме стобца содержащего слова. Помогите ожалуйста. Используемый код приведен ниже.. .
procedure TForm1.OnTitleClick1(Column: TColumn);
begin
if ADOTable1.Sort=Column.FieldName + ' ASC' then
ADOTable1.Sort:=Column.FieldName + ' DESC'
else
ADOTable1.Sort:=Column.FieldName + ' ASC';
end;