[vtdeleon]

Saludos

Bueno es que la definicion de un orden no es Entero ni es una Cadena de caracteres.
(No estoy seguro, prueba con Variant, a ver a ver)

Lo que haria es

Código Delphi [-]
var
  rSlq:String:
begin
  rSql:='Select Customer_code Codigo,Customer_name Nombre From Customer '+
          'Order by %s';
  query2.CLOSE;
  query2.Sql.Text:=Format(rSql,['Customer_code']);
  query2.OPEN;
end;