[ginkaku]

Bueno nunca hay que darse por vencido, encontre el problema. Estaba obteniendo bien la imagen de la base de datos, pero tenia que pasarlo a una variable de tipo Bitmap, para recien pasarlo a un componente TImagen. Entonces la solución fue:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    TStream *blod;
 Query2->Active=false;
 Query2->Active=true;
 Query2->First();
        blod = Query2->CreateBlobStream(Query2->FieldByName("imagen"),bmRead);
        blod->Seek(0, soFromBeginning);
        Graphics::TBitmap *aaa = new Graphics::TBitmap;<-----khaaaaaaaaan
        aaa->LoadFromStream(blod);
        Image1->Picture->Assign(aaa);
 Query2->Close();
 blod->Free();
}

Lo raro que en los temas similares, muchos resuelven el problema sin este paso intermedio. Bueee eso me hiso doler la cabeza un rato. Gracias al foro que tome informacion de muchos hilos