Как из TBlobField вытащить TBitmap?

TBlobField *MyField;
TStream *MyStream;
TPicture *MyPicture = new TPicture();

MyField = (TBlobField *)ADOTable2->FieldByName("Picture");
MyField->SaveToStream(MyStream);
MyPicture->Bitmap->LoadFromStream(MyStream); //происходит ошибка
ImageList1->Add(MyPicture->Bitmap, NULL);

Подскажите, что я делаю не так?