Delphi - ordenar dbgrid PLEASE URGENTE

Necesito saber si es posible ordenar una dbgrid enlazada con un tquery haciendo click en alguna de las columnas de la grilla, una vez que la consulta ya ha sido realizada.

gracias

Prueba uno de estos dos metodos. Los dos funcionan
procedure TFormPrincipal.DBGrid1TitleClick(Column: TColumn);
//var
//Campo:String;
begin
if Modulo.TableFichas.Indexfieldnames = Column.Field.FieldName then
Modulo.TableFichas.Indexfieldnames:= Column.Field.FieldName+' DESC'
else
Modulo.TableFichas.Indexfieldnames:= Column.Field.FieldName;
{Campo:=Column.Title.Caption;
try
Modulo.TableFichas.Indexfieldnames:=Campo;
Except
on Exception do
begin
showmessage('No se puede ordernar por la columna '+Campo);
exit;
end;
end}
end;