Ordenar un DBGrid por columna

[DOS]

Hola a todos, he visto en internet y en este foro tambien como ordenan un DBGrid al hacer click en el titulo de la columna

Código Delphi [-]
procedure TForm13.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); 
var   
  pt: TGridcoord; 
begin   
  pt:= DBGrid1.MouseCoord(x, y);    
  if pt.y=0 then     
    DBGrid1.Cursor:=crHandPoint   
  else     
    DBGrid1.Cursor:=crDefault;  
end;

y despues en el evento title click del DBGrid

Código Delphi [-]
procedure TForm1.DBGrid1TitleClick(Column: TColumn); 
{$J+}
const PreviousColumnIndex : integer = -1; 
{$J-} 
begin
  if DBGrid1.DataSource.DataSet is TCustomADODataSet then
  with TCustomADODataSet(DBGrid1.DataSource.DataSet) do 
  begin
    try
      DBGrid1.Columns[PreviousColumnIndex].title.Font.Style := DBGrid1.Columns[PreviousColumnIndex].title.Font.Style - [fsBold];     
    except
    end;
    Column.title.Font.Style := Column.title.Font.Style + [fsBold];     
    PreviousColumnIndex := Column.Index;      
    if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort)= 0) then
      Sort := Column.Field.FieldName + ' DESC'
    else
      Sort := Column.Field.FieldName + ' ASC';   
  end;
end;

El esunto es que trabajo con Delphi 7, Paradox, Ttable y datasource, no con ADO, no se si se puede adaptar el codigo o le puedo agregar ADOtable?
Tambien encontre este codigo para reemplazar el anterior

Código Delphi [-]
Table1.IndexFieldNames:=Column.FieldName;

con la opcion de reemplazar IndexFieldNames por IndexName, pero me tira un error "Index does not exist..." se ve que debo crear el indice de las columnas o las tablas, como se realiza esto?
si alguien me puede ayudar le agradecere, de ultima si no se puede hacer esto en la columna, lo haria en un boton, como

Código Delphi [-]
procedure TForm17.Button2Click(Sender: TObject); 
begin 
  Query1.Close; 
  Query1.SQL.Clear; 
  Query1.SQL.Add('Select Codigo,Servicio,Importe'); 
  Query1.SQL.Add('From Table1 '); 
  Query1.SQL.Add('order by 2'); 
  Query1.Active:=true; 
  Query1.Open; 
end;

Que tampoco funciono

[[Caral]]

Hola
La verdad no entiendo la pregunta.
Saludos

[DOS]

Hola Caral,
lo que quiero hacer es ordenar las columnas del DBRgrid que por defecto esta ordenado por el ID, se pueda ordenar por lo que el usuario necesite.
Supongamos que en el DBGrid muestra ID, nombre, apellido, ciudad. el usuario al hacer click en el encabezado de la columna, pueda ver ordenado a travez de apellido o de ciudad o de nombre, y si es con un boton, podria ser con la ayuda de un checkbuton en donde tenga la posibilidad de elegir ID, apellido, nombre y ciudad y al apretar el boton se ordene por la seleccion correspondiente.
En lo personal, me gustaria la primer opcion, de hacer click en el titulo de la columna y se ordene por este.
Espero que haber sido mas claro ahora, Saludos.

[[Caral]]

Hola
Se podria hacer muy facilmente con un combobox, no?
Saludos

[Casimiro Notevi]

De todas formas, de una o de otra forma, lo que no se entiende es el problema que tienes.

[DOS]

el problema es que no se como hacerlo, como mencione me gustaria poder hacer click en el titulo de la columna y que se ordene por este, pero la codificacion que encontre trabaja con ADO.
se puede modificar esa codificacion para que funcione con Ttable y datasource?
Saludos