[[Caral]]

Hola
Intenta ordenando mas campos:

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

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

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

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

Saludos