Mensaje    Asunto: actualizar campo grafico Responder citando

Hola

Cuando hago una consulta mediante un query, y necesito pasarle un parametro
de tipo blob lo hago de esta manera

Query1->SQL->Add("update tabla");
Query1->SQL->Add("campo = :valor_blob ");
Query1->SQL->Add("where cedula = " + AnsiString(Form4->codigo));
Query1->Prepare();

Query1->ParamByName("valor_blob")->LoadFromStream(matriz_prot2.get(),ftBlob);
Query1->ExecSQL();

pero ahora necesito actulizar un campo de tipo grafico, asignandole una
imagen que tengo en un objeto Image pero no he podido conseguirlo.

Alguien puede decirme como logro hacer esta actualizacion

Gracias