Запись в Access картинки

ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("INSERT INTO test (last_name,fam,photo)");
ADOQuery1->SQL->Add("VALUES (:last_name,:fam,:photo)");
ADOQuery1->Parameters->ParamByName("last_name")->Value=(Edit1->Text);
ADOQuery1->Parameters->ParamByName("fam")->Value=(Edit2->Text);

if (OpenPictureDialog1->Execute())
{
AnsiString CurrentFile = OpenPictureDialog1->FileName;
Image1->Picture->LoadFromFile(CurrentFile);
}

       ADOTable1->Edit();
       TMemoryStream* strm = new TMemoryStream();
       Image1->Picture->Graphic->SaveToStream(strm);
       ((TGraphicField*)Form1->ADOTable1->FieldByName("photo"))->LoadFromStream(strm);
       delete strm;
       Form1->ADOTable1->Post();

Query1->SQL->Clear();
Query1->SQL->Text = "INSERT INTO TableName (BlobField) VALUES (:BlobValue)";
// берем из файла
Query1->Params->ParamByName("BlobValue")->LoadFromFile(FileName); 
//
 
//либо берем из потока:
TMemoryStream *stm = new TMemoryStream();
Image1->Picture->Bitmap->SaveToStream(stm); // Image1 лежит на форме и в него уже загружена картинка
stm->Seek(0, 0);
Query1->Params->ParamByName("BlobValue")->LoadFromStream(stm);
delete stm;
//
 
Query1->ExecSQL();

   if (OpenPictureDialog1->Execute())
  {
    AnsiString CurrentFile = OpenPictureDialog1->FileName;
 
    Image1->Picture->LoadFromFile(CurrentFile);
  }