Hola.
Habiendo declarado el campo blob del tipo correcto y estando el archivo ya cargado en él, una opción es:
Código PHP:
void __fastcall TForm1::btnSaveCurrBlobFldToFileClick(TObject *Sender)
{
TStream* Stream = new TFileStream((AnsiString)cPath + cNomArch, fmCreate);
TBlobField *Bf = static_cast<TBlobField*>(IBTableAplic->FieldByName("ARCHIVO"));
__try
{
Bf->SaveToStream(Stream);
}
__finally
{
delete Stream;
}
}
Saludos