[cloayza]

Bueno podria ser:

Opción 1:

Código Delphi [-]
procedure TForm1.cboxPreciosChange(Sender: TObject);
var
    PrecioMin, PrecioMax:integer; //Aquí debes definir el tipo adecuado a tu caso
    Valores:String;
    Value:String;
begin
       Valores:=cboxPrecios.Items[cboxPrecios.ItemIndex];
       //Valores='$20.000.000 - 40.000.000'

       //Ahora lo que debes hacer es separar esto en 20.000.000 y 40.000.000

       //Forma facil
       Value:=Copy(Valores,2,Pos('-',Valores)-1); //=>20.000.000;
       PrecioMin:=StrToInt(Value);

       Value:=Copy(Valores,Pos('-',Valores)+1, Length(Valores)); //=>40.000.000;
       PrecioMax:=StrToInt(Value);

       //Ahora en tu consulta debes incorporar el filtro adecuado
       Query1.....
       Query1.Add( Format('Where (Precio>=%d And Precio<=%d)',[PrecioMin, PrecioMax]));
       Query1.Open;
end;

Opción 2:

Código Delphi [-]
procedure TForm1.cboxPreciosChange(Sender: TObject);
var
    Valores:String;
    PrecioMin, PrecioMax:String;
begin
       //Valores='$20.000.000 - 40.000.000'
       Valores:=cboxPrecios.Items[cboxPrecios.ItemIndex];

       //Forma facil
       PrecioMin:=Copy(Valores,2,Pos('-',Valores)-1); //=>20.000.000;
       PrecioMax:=Copy(Valores,Pos('-',Valores)+1, Length(Valores)); //=>40.000.000;

       //Ahora en tu consulta debes incorporar el filtro adecuado
       Query1.....
       Query1.Add( Format('Where (Precio>=%s And Precio<=%s)',[PrecioMin, PrecioMax]));
       Query1.Open;
end;

Por supuesto que existen otras formas de realizar esto...Por algo se comienza...
Saludos cordiales