Vider la liste combobox : delphi

Bonjour,

je suis débutant en delphi et je cherche comment supprimer tous les éléments de la liste combobox, pour la remplir de nouveau

j'ai utilisé le code suivant mais ça ne marche pas bien

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
FOR i := 0 to ComboBox1.items.count do
begin
ComboBox1.items.Delete(i);
end;
end;


merci