//------------------------------------------
// Создаем поток и заносим туда, что хотим
//------------------------------------------
// В датасете - запрос типа
// UPDATE BOOKS SET DESCRIBE = :DESCRIBE
// WHERE ISBN='какой-то там'


var
S: TStream;
begin
...

DataSet.DisableControls;
S := DataSet.CreateBlobStream(
DataSet.FieldByName('DESCRIBE'), bmWrite);
try
try
S.Write('Разная фигня', 12);

except
on e: Exception do ShowMessage('Ошибка записи в БЛОБ:'#13
+e.Message);
end
finally
DataSet.EnableControls;
S.Free;
end;

end;