Отображение картинки

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    ADOTable1->Edit();
    TADOBlobStream*Stream = new TADOBlobStream
        (static_cast<TBlobField*>(ADOTable1->FieldByName("pic")), bmWrite);
 
    __try
    {
        std::auto_ptr<TJPEGImage>jpeg(new TJPEGImage);
        jpeg->LoadFromFile(ExtractFilePath(ParamStr(0)) + "image.jpg");
        jpeg->SaveToStream(Stream);
    }
    __finally
    {
        delete Stream;
        ADOTable1->Post();
    }
}

void TForm1::ShowJPG(TBlobField* fld, TPicture* pic)
{
    TStream *Stream = 0;
    try
    {
        Stream = ADOTable1->CreateBlobStream(fld, bmRead);
 
        if (Stream->Size > 0)
        {
            std::auto_ptr<TJPEGImage>jpg(new TJPEGImage);
            Stream->Position = 0;
            jpg->LoadFromStream(Stream);
            pic->Assign(jpg.get());
        }
        else
            pic->Assign(0);
    }
    catch (...)
    {
        pic->Assign(0);
    }
    delete Stream;
}
 
// а, собственно, отображать jpg будем по событию OnAfterScroll набора данных
void __fastcall TForm1::ADOTable1AfterScroll(TDataSet *DataSet)
{
    ShowJPG(ADOTable1pic, DBImage1->Picture);
}