procedure TForm1.addStream(fStream: TFileStream; sFile: string; bScriviImg: boolean);
var Blob: TStream;
begin
Blob := qAdd.CreateBlobStream(qAdd.FieldByName('ORI_DATA'), bmWrite);
try
Blob.Seek(0, soFromBeginning);
Blob.CopyFrom(fStream, fStream.Size) ; //trasferisce lo stream su Blob
finally
Blob.Free;
end;
end;