Classificação em SQL

E aí Galera...

Tenho uma consulta de produtos onde a propriedade SQL da Query está assim:
[color=red:62de6053c0]SELECT Codigo, Identificacao, Precovenda, Grupo, QtdeEstoque, Qtdeminima, Marca, Unidade, Precocusto, Margem, Grupo.Nomegrupo
FROM Produto, Grupo
WHERE Produto.grupo = Grupo.Codigo and
Produto.identificacao LIKE :Identificacao and
Grupo.NomeGrupo LIKE :NomeGrupo[/color:62de6053c0]

Ao exibir o form adicionei ´Order by Identificacao´ para classificar pelo nome do produto inicialmente.
Ficou assim:
[color=red:62de6053c0]procedure TFrm_Tabpreco.FormShow(Sender: TObject);
begin
Edit1.Text:= ´´;
Edit2.Text:= ´´;
with Qry_Produtos do
begin
Close;
ParamByName(´Identificacao´).AsString := ´¬´ + Edit1.Text + ´¬´;
ParamByName(´NomeGrupo´).AsString := ´¬´ + Edit2.Text + ´¬´;
SQL.Add(´Order by Identificacao´);
Open;
end;
Edit1.SetFocus;
end;[/color:62de6053c0]


Nesta consulta tenho duas caixas de texto para pesquisa de produtos pelo nome e pelo grupo.

O problema é o seguinte: Coloquei um RadioGroup com quatro opções de classificação ´Codigo, nome, grupo e marca´, gostaria de fazer como faço para trocar o ´Order by´ ao clicar nos itens do RadioGroup.