Ошибка: List index out of bounds (3)

[Артист]

Не могу понять почему она вылезает.
Ведь у меня во второй форме в ListView 3 колонки.
Но нет, вылезает при выполнении:

ListItem := Form2.ListView1.Items.Add;

Выкладывать код клочками нет смысла, весь проект: Find Copy File.rar

Нужно создать папку с 2-мя пустыми текстовыми файлами, и указать их.
Нажать "Старт".
И будет ошибка. Main.pas 476-я строка. Ниже мессага для проверки.

Смысл программы, искать одинаковые файлы.
При закрытии формы со списком файлов(будет ошибка, я пока на встроенные чекбоксы не переделал), если стоит чекбокс - файл удалится.

Помогите пожалуйста?

[Sciv]

Вот такие вещи лучше проверять ДО старта потока:

  if varDirectory = '' then
  begin
    varSMessage := 'Выберите папку!';
    Synchronize(SMessage);
  end
  else if DirectoryExists(varDirectory) then
  begin

Ну и собственно причина ошибки: откуда взялась Column[3], если их всего 3, а нумерация с нуля?

procedure TForm2.OnResize(Sender: TObject);
begin
  ListView1.Columns[1].Width := ListView1.ClientWidth - (20 + ListView1.Columns[2].Width + ListView1.Columns[3].Width);
end;

[Артист]

Ааа...Блин, забыл.
Спасибо большое. ))

[NetSpace]

у меня есть программа, которая методом сравнения по содержимому ищет одинаковые файлы среди огромного количества (скажем, 2-4 тысячи файлов) и удаляет найденную копию. могу сразу и исходник и программу дать, если очень надо.
писал, чтоб удалить лишнее среди кучи фотографий и песен

[Артист]

Спасибо.
Я ради интереса делаю, так то и в инете есть куча прог(даже в CCleaner это есть). ))