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;