Странная ошибка при удалении пункта popupmenu в рантайм

[frte]

Есть popupmenu со статическим набором пунктов, включая пару разделителей "-" и одно сабменю.
В рантайм создаю несколько пунктов по количеству строк checklistbox.
Создаю так:

procedure addmenu;//добавление меню
var
index: Integer;
NewItem: TMenuItem;
begin
//добавление пунктов меню

for index := 0 to uglobal.global.checklistbox3.Items.Count-1 do
    begin
NewItem := TMenuItem.Create(umain.main.PopupMenu1); 
umain.main.PopupMenu1.Items.Add(NewItem);
NewItem.Caption :=uglobal.global.checklistbox3.Items.Strings[index];
NewItem.Tag := index;
NewItem.Visible:=uglobal.global.checklistbox3.Checked[index];
NewItem.OnClick := umain.main.PopupMenuItemsClick;end;
end;

Когда приходит время их удалить, делаю так:

procedure delmenu;
var
ItemToDelete: TMenuItem;i,j : integer;
//построение меню
begin
j := umain.main.PopupMenu1.Items.Count-1;
for i := 0 to   j do if umain.main.PopupMenu1.Items[i].Tag <>-1 then umain.main.PopupMenu1.Items.Delete(i);
end;

Значение tag для статических пунктов присвоено -1.

Происходит ошибка list index out of bounds
Вроде простая ошибка, означающая превышение счётчика, но его уменьшение на 1 и даже более пунктов не приводит к её устранению. Всё равно list index out of bounds

Надеюсь кто-то увидит то, что не заметил я

[Аватар]

Цикл удаления от конца сделай

[frte]

Сообщение от Аватар

Цикл удаления от конца сделай

for i := j downto 0 do if umain.main.PopupMenu1.Items[i].Tag <>-1 then umain.main.PopupMenu1.Items.Delete( i);

Ура, заработало!
Спасибо, Аватар, про downto я и забыл совсем