Сколько раз блобы всплывали, но никто не ищет.
Чтение

ms:=TMemoryStream.Create;
TBlobField(sqInsert.FieldByName('worddoc')).SaveToStream(mS);
ms.Seek(0, soFromBeginning);
ms.SaveToFile(getcurrentdir+'\temp\~temp.doc');

Запись
ms:=TMemoryStream.Create;
ms.LoadFromFile(getcurrentdir+'\temp\~temp.doc');
ms.Seek(0, soFromBeginning);
TBlobField(sqInsert.FieldByName('worddoc')).loadfromstream(mS);