Уничтожение компонентов

Подскажите пожалуйста как коректно удалить динамически создаваемые компаненты, или как сделать чтото подобное как в ACD SEE множественное привью картинок я делал так
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
i,l,v,p: integer;
begin
v:=0;
p:=0;
for i := 0 to 4 do begin
Im[i]:= Timage.Create(self);
Im[i].Stretch:=true;
Im[i].Width := 70;
Im[i].Height := 70;
if l>panel3.Width-140 then begin
v:=0;
inc(p);
end;
l:=73*v;
inc(v);
Im[i].Left := l;
Im[i].Top := 73*p;
Im[i].Parent := Panel3;
Im[i].Picture.LoadFromFile('d:\miprog\ris_base\1.jpg');
Im[i].ShowHint:=true;
Im[i].Hint:=inttostr(i);
Im[i].OnClick:=ImClick;
im[i].Tag:=i;
end;
end;
а потом гдето
for i:=0 to 4 do begin
im[i].Destroy;
end;
после чего выдает ошибку

я удалял не через destroy, а через free, все нормально

Да точно работае а то я ставил и free и destroy вместе тогда глючело. Спасибо.