Поиск и удаление битых путей

[raxp]

после

listbox.Items.Delete(i);

//делайте
listbox.Perform(WM_SETREDRAW, 1, 0);

[Shouldercannon]

В это случае убивает все пути даже не битые

var
i:integer;
begin
i:=0;
while i<listbox1.items.count do
 if not fileexists(ListBox1.Items.Strings[i]) then listbox1.Items.Delete(i) else inc(i);
end

в этом

var
i:integer;
begin
i:=0;
while i<listbox1.items.count-1 do
 if not fileexists(ListBox1.Items.Strings[i]) then listbox1.Items.Delete(i) else inc(i);
end

убил все кроме одного не правильного

Вот проект, чтобы вы могли поэкспементировать

[Вавел из ГМТУ]

Да что за манера выкладывать многострочный код, а потом отвергать его одним лишь "он не работает" ?

Что за бред? Ну так разбирайтесь почему не работает.... Он работает так, как вы напишите.

Есть сто и один способ как проверить "чем занят код"...

Начнём с того, что всё работает...

Var
  i : Integer;
Begin
i:=0;
While i < Listbox1.Items.Count Do
  Begin
    If Not FileExists(ListBox1.Items.Strings[i]) Then
      listbox1.Items.Delete(i)
    Else
      Inc(i);
  End;
End;

[raxp]

у вас во вложенном проекте файлы тестовые локально, а пути загружаются аж с c:\program files... проверьте пути, код рабочий