Почему не очищается ImageList ?

[Просто Проги]

Заполнил ImageList изображениями пробую очищать так

for I := 0 to ImageList1.Count do
begin
Form1.ImageList1.Source.Delete(i);
Form1.ImageList1.Destination.Delete(i);
end;

но он не очищается и выдает ошибку.

[gresaggr]

if ImageList1.Count> 0 then
for I := 0 to ImageList1.Count -1 do 

[Просто Проги]

не проблема не в этом, даже если не циклом, а по одному удалять ошибка вылетает я пробовал с таким условием(

[krapotkin]

главное не говорить, что за ошибка )

а пока не говорите, могу только поинтересоваться почему Form1.ImageList1 ?