リストのインデックスが範囲を超えています

さすがに「それって for to do ぢゃなくて downto ぢゃね？」っていうのはもう十年以上前に卒業したけど

i,j:integer;

とかの多重ループで Items[i]  と Items[j]  を間違ってしまってなかなか気付かない
思い込みがあるから何度読み返してもわからなくて悩んでしまう