Wenn du das so machen willst, und die entsprechenden Worte immer an der gleichen Position stehen, brauchst du dir doch nur den Index merken. Du ermittelst diesen ja schon mit deiner Löschproc - i
Edit: Warum verwendest du nicht IndexOf? Also statt:
Delphi-Quellcode:
for i := 0 To lBox.Items.Count-1 do
if lBox.Items[i] = eintrag then...
besser
i := lBox.Items.IndexOf(Eintrag);