Alle Bilder in Imagelist löschen

[Neutral General]

Ich möchte alle Bilder aus einer ImageList löschen. Also komplett leeren.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender : TObject);
var i : Integer;
begin
  for i:= 0 to ImageList1.Count do
   ImageList1.Delete(i);
end;

das wäre natürlich das logischste aber das funktioniert nicht die Bilder werden zwar gelöscht aber danach folgt eine Fehlermeldung.
Kann jeder mal ausprobiern.
Zutaten :

• 1 Imagelist mit Bildern drin
• 1 Button mit obigem Code

Ich habs schon mit ImageList1.Count-1 und +1 und von 1 bis ImageList1.Count (+1,-1) usw., aber es funktioniert alles nicht