Mise à jour DBgrid à partir d'une requête SQL

Bonjour tout le monde,

J'ai un fiche avec les composants suivants :
    Ttable (Name : StockOrsud , TableName : stock_orsud.db)
    TdataSource (DataSet : StockOrsud, Name : DataSource1)
    TDBgrid (DataSource : DataSource1)
    Tquery (DataSource : Datasource1)

A la création de ma fiche, le DBGrid m'affiche bien le contenu de stock_orsud.db

Ensuite j'ai ajouté un TradioGroup (avec 3 boutons) et je veux lorsque l'on sélectionne un des boutons, une requête SQL soit effectuée et que le DBGrid m'en affiche le résultat.

        procedure TForm1.RadioGroup1Click(Sender: TObject);
        begin
             If RadioGroup1.ItemIndex=1 then
             begin
                  with query1 do
                  begin
                       close;
                       SQL.Clear;
                       SQL.add('select * from stock_orsud where Quantite < 2000');
                       try open;
                       except
                             showmessage('erreur');
                       end;
                  end;
             end;
             DbGrid1.Update;
        end;

Et malheureusement le DBGrid ne se modifie pas. J'ai évidemment fait des recherches avant de vous demander de l'aide mais tout ce que j'ai trouvé ne m'a pas fait avancer.

Je vous remercie par avance de vos lumières.

A+