void __fastcall TfrmBLOB::mnuLoadClick(TObject *Sender){
if(!dlg->Execute()){ // TOpenPictureDialog
    return;
}
int ID=que->FieldByName("Tovar_ID")->AsInteger; // ID беру из другого запроса
TQuery *q=CreateQuery(db, // это моя ф-я создаёт запрос и подставляет параметры
  "select Tovar_ID, Photo from Tovar where Tovar_ID=:ID",
  "ID",INT_TYPE,ID,
   0 );
q->RequestLive=true;
q->Open();
TBlobField *b=(TBlobField *)q->FieldByName("Photo");
q->Edit();
TBlobStream *bs=new TBlobStream(b,bmWrite);
char buf[BUFSIZE];
FILE *f=fopen(dlg->FileName.c_str(),"rb");
int nByte;
do{
    nByte=fread(buf, 1 ,BUFSIZE,f);
    bs->Write(buf,nByte);
} while(BUFSIZE==nByte);
fclose(f);
q->Post();  // ВОТ ЗДЕСЬ "another user changed record"
delete bs;
delete q;
}

CREATE PROCEDURE dbo.UpdateFoto @Tovar_ID int, @Photo image AS
begin
set nocount on
update Tovar set Photo=@Photo where Tovar_ID=@Tovar_ID
end
GO

TParam *p;
if(!dlg->Execute()){ // TOpenPictureDialog
    return;
}
int ID=que->FieldByName("Tovar_ID")->AsInteger;
TStoredProc *st=new TStoredProc(this);;
st->DatabaseName=db->DatabaseName;
st->StoredProcName="dbo.UpdateFoto";
p=st->Params->CreateParam(ftInteger,"@Tovar_ID",ptInput);
p->Value=ID;
p=st->Params->CreateParam(ftBlob,"@Photo",ptInput);
p->LoadFromFile(dlg->FileName,ftBlob);
st->ExecProc();
delete st;

if(!dlg->Execute()){ // TOpenPictureDialog
    return;
}
int ID=que->FieldByName("Tovar_ID")->AsInteger;
TQuery *q=CreateQuery(db, // это моя ф-я с переменн числом аргументов, создающая запрос с параметрами
  "update Tovar set Photo=:Photo where Tovar_ID=:Tovar_ID",
  "Photo",BLOB_TYPE,dlg->FileName.c_str(),
  "Tovar_ID",INT_TYPE,ID,
   0 );
q->ExecSQL();