#define PICBUFSIZE  4096 
//---------------------------------------
void PutImageToFile(TQuery *q, AnsiString FieldName, AnsiString FileName){
// выгрузить картинку из поля FieldName открытого запроса q
// в файл FileName
// Обязательно! q->RequestLive=true
int n;
TField *f=q->FieldByName(FieldName);
TBlobStream *bs=(TBlobStream *)q->CreateBlobStream(f,bmRead);
FILE *ff=fopen(FileName.c_str(),"wb");
n=PICBUFSIZE;
BYTE *b=new BYTE[n];
while(n> 0 ){
    n=bs->Read(b,n);
    fwrite(b, 1 ,n,ff);
}
delete bs;
fclose(ff);
delete [] b;
}