В чем ошибка не пойму

var
  Form5: TForm5;
 
indexInList:integer; // ïåðåìåííàÿ õðÿíÿùàÿ íîìåð îòîáðàæàåìîé êàðòèíêå â ñïèñêå
 // fileList:TStringList; // ñïèñîê èìåí ôàéëîâ ñ êàðòèíêàìè
  picList:TstringList;
 
implementation
 
{$R *.dfm}
 
 //ñäåëàòü ïðîöåäóðó ïîèñêà êàðòèíîê â çàäàííîé ïàïêå
// êîòîðàÿ çàïîëíèò picList èìåíàìè ôàéëîâ ñ êàðòèíêàìè
procedure FindPictures(dir:string);
Var
  SR:TSearchRec; // ïîèñêîâàÿ ïåðåìåííàÿ
  FindRes:Integer; // ïåðåìåííàÿ äëÿ çàïèñè ðåçóëüòàòà ïîèñêà
  picList:TstringList;
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
  image1.Picture.Bitmap.LoadFromFile(filename);
end;
 
 
procedure bNextClick(Sender:TObject);
begin
  inc(indexInList); //óâåëè÷èâàåì èíäåñê íà åäèíèöó
  if indexInList >= picList.Count then // åñëè ýòî áûëà ïîñëåäíÿÿ êàðòèíêà òî ïåðåõîäèì ê ïåðâîé â ñïèñêå
    indexInList := 0;
 ShowPicture(picList.Strings[indexInList]); // ïîêàçûâàåì êàðòèíêó
end;
 
//îáðàáîòêà íàæàòèÿ êíîïêè Íàçàä
procedure b1NextClick(Sender:TObject);
begin
  dec(indexInList); //óìåíüøàåì èíäåêñ íà 1
  if indexInList < 0 then // åñëè ýòî áûëà ïåðâàÿ êàðòèíêà â ñïèñêå, ïåðåõîäèì ê ïîñëåäíåé
    indexInList := picList.Count - 1;
//  ShowPicture(picList.Strings[indexInList]); //ïîêàçûâàåì òåêóùóþ êàðòèíêó
end;
 
 
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
Close;
end;
 
end.

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.LoadFromFile(filename);
end;
 
 
procedure bNextClick;
begin
  inc(indexInList); //óâåëè÷èâàåì èíäåñê íà åäèíèöó
  if indexInList >= picList.Count 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;
 
end.
procedure TForm5.FormCreate(Sender: TObject);
begin
 picList := TStringList.Create;
end;

procedure bNextClick;
begin
if indexInList >= picList.Count-1 then 
indexInList := 0;
ShowPicture(picList.Strings[indexInList]); 
inc(indexInList); 
end;

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 TForm1.FormCreate(Sender: TObject);
begin
picList := TStringList.Create;
FindPictures('C:\')
end;