[silviodp]

Roman:
cuando te referís a ejecutar la consulta, te referías a hecrlo en el código asociado donde hago esto:

procedure TForm18.ListarClick(Sender: TObject);
begin
If Lista.Text='Código' Then
begin
Form21.ListadoBienUso.DataSet:=ModeloDatos.Consulta1;
ModeloDatos.Consulta1.Close;
ModeloDatos.Consulta1.ParamByName('ORDEN').AsString:=Modelodatos.TblMuebleCodMueble.FieldName;
ModeloDatos.Consulta1.ParamByName('DESDE').AsInteger:=StrToInt(Desde.Text);
ModeloDatos.Consulta1.ParamByName('HASTA').AsInteger:=StrToInt(Hasta.Text);
ModeloDatos.Consulta1.Open;
end;

También le asigno a la variable fmSql las sentencias de la consulta SQL en éste lugar?
Disculpame y gracias.

Silvio.-