[rgstuamigo]

Haber haslo así:

Código Delphi [-]
procedure TF_BuscarCamio.ComboBox1Select(Sender: TObject);
begin
        Edit1.Text :='';
        OrdenarGrid.Close;

//ojo la primera fila es la cero(0) y la segunda es uno(1) 
        OrdenarGrid.SQL[1] := 'ORDER BY '+ ComboBox1.Text;// reemplazo la segunda fila de la consulta SQL
        OrdenarGrid.Open;
        OrdenarGrid.FieldByName(ComboBox1.Text).Index := 0;
        DBGridBuscar.SetFocus;
end;

Código Delphi [-]
procedure TF_BuscarCamio.Edit1Change(Sender: TObject);
begin
      OrdenarGrid.Close;
      OrdenarGrid.SQL.Clear;
// agrego la consulta SQL en 2 Filas(Strings) 
      OrdenarGrid.SQL.Add('select * from BOM0001 where upper('+Combobox1.text+') like ''%'+AnsiUpperCase(Edit1.Text)+'%''');
      OrdenarGrid.SQL.Add('order by '+Combobox1.text);
      OrdenarGrid.Open;
end;

Espero te sea de utilidad.
Saludos...