[angvelem]

Ну автору виднее, но лучше изменить цикл на while, если предполагается удаление.

Код:

for J := 0 to ListBox1.Count - 1 do
begin
  предыдущий код
end;

Используй функцию Pos