Bonjour,

un essai à partir du code et selon ce que j'ai pu comprendre


procedure TForm7.bsSkinButton1Click(Sender: TObject);
begin
dm2.Groupes.Active:=True;
for i:=0 to...