[luisgutierrezb]

a ver si entendi bien, quieres ordenar la consulta por los campos que vas a seleccionar o a tener en el listbox2, yo usaria algo asi como:

Código Delphi [-]
Var
  Orden:String;
  I:Integer;
Begin
  // instrucciones
  For I:=0 To Listbox2.Items.Count -1 Do
  Begin
    Orden := Orden + ListBox2.Items[i]
    If I < Listbox2.Items.Count -1 then
      Orden := Orden + ','
  End;
  //Instrucciones
  FreportCliente.qryCliente.SQL.Add(' ORDER BY '+Orden+' deSC');