如何提高olecontainer显示word的速度(100分)

我用blob存有一个字段，我想在记录移动的时候，显示出具体内容，但我用下面的方法实在是太慢。
tblobfield(table1.FieldByName('data')).savetofile(ExtractFileDir(Application.Exename)+ '/newdoc');
OleContainer1.CreateLinkToFile(ExtractFileDir(Application.Exename)+ '/new.doc',false);