Delphi - ordenar registros del dbgrid

Existe alguna otra forma de ordenar los registros de una dbgrid al hacer click en el titulo de cierta columna ?? La unica forma q conozco es la de volver ejecutar la consulta oredenada por ese titulo clickeado.-
Pero creo que si tienes 10000 registros cargados en ella no es muy optimo volver a ejecutar tal sql.-
Por favor si alguien sabe algo mas optimo y eficiente bienvenida sera su colaboracion.-

Ronaldinho

Prueba con uno de estos metodos:
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}