Unknown picture file extension

#include <vcl.h>
#pragma hdrstop
#include <FileCtrl.hpp> // доступ к SelectDirectory
#include <jpeg.hpp> // работа с jpg
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
aPath = " ";  // текущий каталог
FirstPicture(); // показать картинку, которая есть в каталоге программы
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (SelectDirectory("Выберите каталог, в котором находятся фото","", aPath) !=0)
        {
        aPath = aPath + "\\";
    if (FirstPicture() )
        CheckBox1->Enabled = true;
    else
        Label1->Caption = " В каталоге нет фото" ;
        }
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
NextPicture();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
if (CheckBox1->Checked)
        Timer1->Enabled = true;
else
        Timer1->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if ( !NextPicture())
        Timer1->Enabled = false;
};
 
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
 
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TLabel *Label1;
        TButton *Button1;
        TButton *Button2;
        TCheckBox *CheckBox1;
        TTimer *Timer1;
        TImage *Image1;
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall CheckBox1Click(TObject *Sender);
        void __fastcall Timer1Timer(TObject *Sender);
private:    // User declarations
public:     // User declarations
AnsiString aPath; // каталог в котором находятся изображения
TSearchRec aSearchRec; // результат поиска файла
TForm1 *Form1;
        bool _fastcall TForm1::NextPicture()
{
        Image1->Picture->LoadFromFile(aPath+aSearchRec.Name);
        Label1->Caption = aPath+aSearchRec.Name;
        if (FindNext(aSearchRec) !=0)
        {
                Button2->Enabled = false;
                CheckBox1->Enabled = false;
                return false;
        }
        return true;
}
 
        bool _fastcall TForm1::FirstPicture()
{
Image1->Visible = false;
Button2->Enabled = false;
CheckBox1->Enabled = false;
CheckBox1->Checked = false;
Label1->Caption = " ";
if (FindFirst(aPath+" *.jpg", faAnyFile, aSearchRec) == 0)
{
        Image1->Picture->LoadFromFile(aPath+aSearchRec.Name);
        Image1->Visible = true;
        Label1->Caption = aPath+aSearchRec.Name;
        if (FindNext(aSearchRec) == 0)
        {
                Button2->Enabled = true;
                CheckBox1->Enabled = true;
        }
}
return false;
}
 
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif