Ошибка: "unknown picture file extension(.)". "jpeg.hpp" подключен

void __fastcall TForm4::Button1Click(TObject *Sender)
{
  if (OpenPictureDialog1->Execute())
  {
    AnsiString CurrentFile = OpenPictureDialog1->FileName;
    Image1->Picture->LoadFromFile("C:\\Pr-Photo");
  }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm4::Button2Click(TObject *Sender)
{
       ADOTable1->Edit();
       TMemoryStream* strm = new TMemoryStream();
       Image1->Picture->Graphic->SaveToStream(strm);
       ((TGraphicField*)Form4->ADOTable1->FieldByName("Photo"))->LoadFromStream(strm);
       delete strm;
       Form4->ADOTable1->Post();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm4::DBGrid1CellClick(TColumn *Column)
{
if(!(TBlobField*)ADOTable1->FieldByName("Photo")->IsNull){
       if(!Image1->Visible)Image1->Visible=true;
       TMemoryStream* strm = new TMemoryStream;
       TJPEGImage *ptJpg=new TJPEGImage;
        ((TGraphicField*)ADOTable1->FieldByName("Photo"))->SaveToStream(strm);
        strm->Seek(0,0);
        if (*(Word*)strm->Memory == 0xD8FF)Image1->Picture->Graphic=ptJpg;
        Image1->Picture->Graphic->LoadFromStream(strm);
        delete strm;
        delete ptJpg;
      }else
      Image1->Visible=false;
}