нужно разобраться в чем ошибка)))

[ИГА1]

у МЕНЯ есть код программный в нем я пытаюсь сделать кнопки далее и назад но почему то возникает ошибка при нажатие на кнопку далее пишит ошибка в самом алогриме помогите разобраться


var
Form5: TForm5;

indexInList:integer; // ïåðåìåííàÿ õðÿíÿùàÿ íîìåð îòîáðàæàåìîé êàðòèíêå â ñïèñêå
// fileList:TStringList; // ñïèñîê èìåí ôàéëîâ ñ êàðòèíêàìè
picList:TstringList;

implementation

{$R *.dfm}

//ñäåëàòü ïðîöåäóðó ïîèñêà êàðòèíîê â çàäàííîé ïàïêå
// êîòîðàÿ çàïîëíèò picList èìåíàìè ôàéëîâ ñ êàðòèíêàìè
procedure FindPictures(dir:string);
Var
SR:TSearchRec; // ïîèñêîâàÿ ïåðåìåííàÿ
FindRes:Integer; // ïåðåìåííàÿ äëÿ çàïèñè ðåçóëüòàòà ïîèñêà
begin
FindRes:=FindFirst(dir + '*.bmp' ,faAnyFile,SR); // çàäàíèå óñëîâèé ïîèñêà è íà÷àëî ïîèñêà
While FindRes=0 do // ïîêà ìû íàõîäèì ôàéëû (êàòàëîãè), òî âûïîëíÿòü öèêë
begin
picList.add(SR.Name); // äîáàâëåíèå â ñïèñîê íàçâàíèå íàéäåííîé êàðòèíêè
FindRes:=FindNext(SR); // ïðîäîëæåíèå ïîèñêà ïî çàäàííûì óñëîâèÿì
end;
FindClose(SR); // çàêðûâàåì ïîèñê
end;

//
procedure ShowPicture(filename:string);
begin
form5.Image1.Picture.Bitmap.LoadFro mFile(filename);
end;


procedure bNextClick;
begin
inc(indexInList); //óâåëè÷èâàåì èíäåñê íà åäèíèöó
if indexInList >= picList.Count-1 then // åñëè ýòî áûëà ïîñëåäíÿÿ êàðòèíêà òî ïåðåõîäèì ê ïåðâîé â ñïèñêå
indexInList := 0;
ShowPicture(picList.Strings[indexInList]); // ïîêàçûâàåì êàðòèíêó
end;

//îáðàáîòêà íàæàòèÿ êíîïêè Íàçàä
procedure b1NextClick;
begin
dec(indexInList); //óìåíüøàåì èíäåêñ íà 1
if indexInList < 0 then // åñëè ýòî áûëà ïåðâàÿ êàðòèíêà â ñïèñêå, ïåðåõîäèì ê ïîñëåäíåé
indexInList := picList.Count - 1;
ShowPicture(picList.Strings[indexInList]); //ïîêàçûâàåì òåêóùóþ êàðòèíêó
end;


procedure TForm5.BitBtn1Click(Sender: TObject);
begin
picList.Free;
Close;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
bNextClick;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
b1NextClick;
end;

procedure TForm5.FormCreate(Sender: TObject);
begin
indexInList:=0;
picList := TStringList.Create;

FindPictures('D:\Íîâàÿ ïàïêà (2) - êîïèÿ\Êóðñîâàÿ ðàáîòà\ôîòî\ðåøåíèå\')
end;
end.