[Orfentor]

Проблема такова: при запуске программы она проверяет находятся ли файлы в определенной папке и добавляет их имена в ЛистБокс:

Код:

ListBox1.Clear;
 if FindFirst(Dir+'*.ini',faAnyFile,SearchRec)=0 then
 begin
 ListBox1.Items.Add(SearchRec.Name);
 while (FindNext(SearchRec)=0) do
 ListBox1.Items.Add(SearchRec.Name);
 end;
 ListBox1.ItemIndex:=0

;

Затем при нажатии на кнопку от которой требуется загрузить и отобразить выбранный файлпоявляется ошибка

Project1.dsk.exe raised exception class EStringListError with message `List index out if bounds (0)`. Process stopped. Use Step or Run to continue.

Подскажите в чем может быть причина