probelm z usuwaniem TImage ?

Czesc
Mam probelm z usuwaniem dynamicznie stworzonych komponentow TImage umieszczonych na panelu

Tak tworze:
with TImage.Create(Form1.Panel1) do
begin
Name := 'Obrazek' + IntToStr(Licznik);
Parent := Form1.Panel1;
Height := 50;
Width := 50;
Top := 20;
Left := 20;
Picture.LoadFromFile('bmp/1.bmp');
Stretch := True;
Licznik := Licznik + 1;
end;

A tak usuwam, tylko ze to nie chce dzialac dla wiekszej liczby komponentow i nie wiem dlaczego:

for i:=1 to Form1.Panel1.ComponentCount-1 do
begin
Form1.Panel1.Components[i].Free;
end;

Co tu jest zle. Jak moge wywalic tylko komponenty TImage? bede wdzieczny za pomoc

Poprawka tam jest od 0... tak jak ponizej
for i:=0 to Form1.Panel1.ComponentCount-1 do
begin
Form1.Panel1.Components[i].Free;
end;

Idz od ComponentCount-1 do 0. A drugie:

if TComponent is TImage then

...