[silviodp]

El código que uso es tal cual así:

procedure TForm18.ListarClick(Sender: TObject);
Var
 fmSQL:String;
begin
 If Lista.Text='Código' Then
  begin
   ModeloDatos.Consulta1.Close;
   fmSQL:=Modelodatos.Consulta1.SQL.Text;
   Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['CodMueble','CodMueble']);
   ModeloDatos.Consulta1.ParamByName('DESDE').AsInteger:=StrToInt(Desde.Text);
   ModeloDatos.Consulta1.ParamByName('HASTA').AsInteger:=StrToInt(Hasta.Text);
   ModeloDatos.Consulta1.Open;
  end
 Else
   If Lista.Text='Descripción' Then
   begin
     ModeloDatos.Consulta1.Close;
     fmSQL:=Modelodatos.Consulta1.SQL.Text;
     Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['Descripcion','Descripcion']);
     ModeloDatos.Consulta1.ParamByName('DESDE').AsString:=Desde1.Text;
     ModeloDatos.Consulta1.ParamByName('HASTA').AsString:=Hasta1.Text;
     ModeloDatos.Consulta1.Open;
   end
 Else
   If Lista.Text='Rubro' Then  
   begin
     ModeloDatos.Consulta1.Close;
     fmSQL:=Modelodatos.Consulta1.SQL.Text;
     Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['Nombre','Nombre']);
     ModeloDatos.Consulta1.ParamByName('DESDE').AsString:=Desde1.Text;
     ModeloDatos.Consulta1.ParamByName('HASTA').AsString:=Hasta1.Text;
     ModeloDatos.Consulta1.Open;
   end;

y el de la Consulta SQL es:

SELECT Mueble.Codmueble,Mueble.Descripcion,Rubro.Nombre,Seccion.Nombre
FROM Mueble INNER JOIN Rubro ON Mueble.Rubro=Rubro.CodRub
                        INNER JOIN Seccion ON Mueble.Seccion=Seccion.Codigo
WHERE %s BETWEEN :DESDE AND :HASTA
ORDER BY %s;

En la parte de 'Rubro', del código es donde no funciona bien, no probé con tu respuesta anterior ya que no entiendo bien lo del 'punto de ruptura'.
Gracias.

Silvio.-