Ordenar un DBGrid por columna

[DOS]

Si tienes razon, a veces cuesta pensar que el cliente no tiene la mas minima idea de como funciona cada cosa y aunque pueda parecer mas simple hacer click en el titulo para ordenar cada columna, el cliente no se lo puede imaginar que hace eso.
Y como seria en un combobox, necesitaria un boton en donde codificar que lo ordene por cada eleccion, yo habia hecho esto y no funciono, pero talvez es algo parecido, no?

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;