listView的删除有关问题

listView的删除问题?
var
    i,j:   Integer;
    HnoStr:   String;
begin
    for   i:=0   to   lvCheckoutHandNo.Items.Count   -1   do
    begin
        if   lvCheckoutHandNo.Items.Item[i].Checked   then
        begin
            HnoStr:=   Trim(lvCheckoutHandNo.Items.Item[i].Caption);
            for   j:=lvCheckoutItem.Items.Count-1   downto   0   do
            begin
                if   HnoStr   =   Trim(lvCheckoutItem.Items.Item[j].Caption)   then
                begin
                    lvCheckoutItem.Items.Item[j].Delete;
                end;
            end;
            lvCheckoutHandNo.Items.Item[i].Delete;
        end;
    end;
end;


[解决办法]
var
i,j: Integer;
HnoStr: String;
begin
for i:=lvCheckoutHandNo.Items.Count -1 downto 0 do
begin
if lvCheckoutHandNo.Items.Item[i].Checked then
begin
HnoStr:= Trim(lvCheckoutHandNo.Items.Item[i].Caption);
for j:=lvCheckoutItem.Items.Count-1 downto 0 do
begin
if HnoStr = Trim(lvCheckoutItem.Items.Item[j].Caption) then
begin
lvCheckoutItem.Items.Item[j].Delete;
end;
end;
lvCheckoutHandNo.Items.Item[i].Delete;
end;
end;
end;