Чтение/запись картинки в SQLITE через BLOB

    AnsiString Insert_data;
    UnicodeString Path;
    int rc,filesize,rowid;
    sqlite3 *db;
    sqlite3_stmt *insert_stmt;
    sqlite3_blob *blob;
 
    if(OpenDialog1->Execute())
    {
        Memo1->Lines->Add(OpenDialog1->FileName);
        Image1->Picture->LoadFromFile(OpenDialog1->FileName);
    }
        sqlite3_open16(base_name.c_str(), &db);
 
        Path = OpenDialog1->FileName;
        TFileStream *f = new TFileStream(Path, fmOpenRead);
        filesize = f->Size;
        Memo1->Lines->Add("Вес файла : " + (String)filesize);
        f->Position = 0;
        // добавляем новую запись в БД
        Insert_data = "INSERT INTO images(id, pic_id, picture_name, data) VALUES (?, ?, ?, ?);";
        // компилируем SQL запрос в БАЙТ код
        rc = sqlite3_prepare_v2(db, Insert_data.c_str(), -1, &insert_stmt, NULL);
        if(rc != SQLITE_OK)
        {
            Memo1->Lines->Add(sqlite3_errmsg(db));
            sqlite3_close(db);
        }
        sqlite3_bind_int(insert_stmt, 1, 1);
        sqlite3_bind_int(insert_stmt, 2, 1);
        Insert_data = OpenDialog1->FileName;
        sqlite3_bind_text(insert_stmt, 3, Insert_data.c_str(), -1, 0);
        // связываем BLOB длины filesize , который заполняется нулями
        sqlite3_bind_zeroblob(insert_stmt, 4, filesize);
//      sqlite3_bind_blob(insert_stmt,4,f, f->Size,SQLITE_STATIC); // Так тоже не работает
        rc = sqlite3_step(insert_stmt);
        if(rc != SQLITE_DONE)
        {
            Memo1->Lines->Add("Insert statement didn't work");
            Memo1->Lines->Add(sqlite3_errmsg(db));
            sqlite3_close(db);
            return;
        }
        // сброс запроса
        sqlite3_reset(insert_stmt);
 
        // получем номер строки, самого последнего успешного добавления в таблицу
        rowid = sqlite3_last_insert_rowid(db);
 
        rc = sqlite3_blob_open(db, "main", "images", "data", rowid, 1, &blob);
        if(rc != SQLITE_OK)
        {
            Memo1->Lines->Add(sqlite3_errmsg(db));
            sqlite3_close(db);
            return;
        }
        Memo1->Lines->Add("Длина BLOB : " + (String)sqlite3_blob_bytes(blob));
 
 
        rc = sqlite3_blob_write(blob, f, f->Size, 0);
        if(rc != SQLITE_OK)
        {
            Memo1->Lines->Add("Error write " + IntToStr(error));
            Memo1->Lines->Add(sqlite3_errmsg(db));
        }
        rc = sqlite3_blob_close( blob ); // закрытие Blob
        if(rc != SQLITE_OK)
        {
            Memo1->Lines->Add("Error close " + IntToStr(error));
            Memo1->Lines->Add(sqlite3_errmsg(db));
        }

sqlite3 *db; 
sqlite3_blob *data; 
int rc, bytes; 
int error = -100;
 
sqlite3_open("game_data",&db); // Соединяюсь с БД
 
rc = sqlite3_blob_open(db,"main","images","data",1,0,&data); // открываем блоб, бд main c таблицей img, поле img и id = 1
        if(rc != SQLITE_OK)
        {
            Memo1->Lines->Add(sqlite3_errmsg(db));
            sqlite3_close(db);
            return;
        }
bytes = sqlite3_blob_bytes(data); // Количество байт в блобе
char *zBlob = (char *) malloc(bytes);
 
error = sqlite3_blob_read(data,zBlob,bytes,0); // считываем блоб в буффер
    if(error != SQLITE_OK)
    {
        Memo1->Lines->Add("Error open " + IntToStr(error));
        Memo1->Lines->Add(sqlite3_errmsg(db));
    }
TMemoryStream *ms = new TMemoryStream(); // Создаем поток
ms->Write(zBlob, bytes); // считываем из буфера в поток
 
ms->Position = 0; // Позиция в начало
 
Memo1->Lines->Add("Прочитано: " + IntToStr(bytes));
//Image1->Picture->LoadFromStream(ms); // Ошибка
ms->SaveToFile("123.png");
 
 
sqlite3_close(db); //Закрываем БД
//delete []ms; // Удаляем поток

rc = sqlite3_blob_write(blob, f, f->Size, 0);

char *vchrgBuf; 
    if ((vchrgBuf = (char *) malloc(f->Size)) == NULL)
    {
        //Здесь можно поместить сообщение об ошибке выделения памяти
        return;
    }
f->Read(vchrgBuf,f->Size);
rc = sqlite3_blob_write(blob, vchrgBuf, f->Size, 0);