Программа запускается, но выдает ошибку

procedure TForm1.Button1Click(Sender: TObject);
var
  r: integer;
   aFile : String; // файл иллюстрации
begin
  if SelectDirectory('Выберите папку', '',aPath) then
  begin
    aPath := aPath + '\';
    Form1.Caption := 'Просмотр иллюстраций - ' + aPath;
 
    // сформировать список иллюстраций
    r := FindFirst(aPath+'*.jpg',faAnyFile,aSearchRec);
 
    if r = 0 then
    // aFile := aPath + aSearchRec.Name;
    // Form1.Image1.Picture.LoadFromFile(aFile); // загрузить
     //   Scalelmage; //-установить размер компонента
 
      begin
 
        // в указанном каталоге есть JPEG-файл
        Pictures.Clear; // очистить список иллюстраций
        Pictures.Add(aSearchRec.Name); // добавить имя файла
                                       // в список иллюстраций
          (*
        //  Memo1.SetSelText(aPath);
        // получить имена остальных JPEG-файлов
           repeat
           r := FindNext(aSearchRec); // получить имя следующего файла
           if r = 0 then
              Pictures.Add(aSearchRec.Name);
        until (r <> 0);
       //    Form1.Caption := 'Просмотр иллюстраций - ' + aPath+' r= '+IntToStr(r);
 
        if Pictures.Count > 1 then
             Button3.Enabled := True;
 
        // отобразить иллюстрацию
 
         n := 0; // номер отображаемой иллюстрации
          try
 
           Form1.Caption := 'Просмотр иллюстраций - ' + aPath+' n= '+IntToStr(n);
           Form1.Image1.Picture.LoadFromFile(aPath + Pictures[n]);
           Form1.Caption := aPath + Pictures[n];
 
           except on EInvalidGraphic
               do Form1.Image1.Picture.Graphic := nil;
          //    FindClose(aSearchRec);
        end;
        if Pictures.Count = 1 then
          Button3.Enabled := False;
 
         *)
       end
 
      else begin
         // в выбранном каталоге нет JPEG-файлов
         Button2.Enabled := False;
         Button3.Enabled := False;
         Form1.Image1.Picture.Graphic := nil;
 
    end;
 
  end;
 
 end;