Voici du code qui marche :


procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
query1.Close;
// mise à jour de la liste des champs du dataset
...