Ordenar un DBGrid por columna

[[Caral]]

Hola
Solo arreglar un poco:

Código Delphi [-]
procedure TForm17.Button2Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text:= 'SELECT * FROM servicio.DB ';

if combobox1.Text = 'Servicio' then
begin    
  Query1.SQL.ADD(' ORDER BY Servicio ASC');
  Query1.Active:=true;
end;

if combobox1.Text = 'Codigo' then
  begin    
  Query1.SQL.ADD(' ORDER BY Codigo ASC');
  Query1.Active:=true;
end;

Saludos