奇怪的删除问题请教(20分)

我用ImageEnMview做略缩图，其中想实现多重选择一些图片后，对之删除，我用了该控件自带的一步删除所有选定的方法，但总是不能精确的删除已选定的图片，我就自己来写：
首先遍历所有缩略图，判断是否为选定，如是，则把该缩略图的编号存入数组中；
遍历完成后，再集中删除数组中存储的编号缩略图，如下：
var
i,j, idx:integer; A:array of integer;
begin
j:=0;
Setlength(A,ImageEnMview1.ImageCount -1);
for i:=0 to ImageEnMview1.ImageCount -1 do
if ImageEnMview1.IsSelected(i) then begin A[j]:=i;j:=j+1 end;

for idx:=0 to j do
ImageEnMview1.DeleteImage(a[idx]);
end;

可还是不能精确删除已选定的缩略片，比如选定0.1.2.3.4.5.6.7.8. 执行删除时却删除了1.3.5.7.9.11.13.15，不知为何？选择时，我是用鼠标拖动选择的。

这个组件没用过，属于哪个组件包的？

TimageEn，专业的图像处理控件啊

给历史遗留问题结贴