Проблема такова: при запуске программы она проверяет находятся ли файлы в определенной папке и добавляет их имена в ЛистБокс:
Код:
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.
Подскажите в чем может быть причина