из БД ACCESS В Word.Document (ошибка)

[reihtmonbern]

Здравствуйте Дорогие товарищи подскажите пожалуйста в чем дело не понимаю
#
XPman, WordXP, OleServer, ComObj;

var word, doc, tab1: OleVariant;
str, text: string;
var i, j: integer;
begin
GetDir(0,str);
word:=CreateOleObject('Word.Applica tion');
word.Documents.Open('C:\x.doc');
{\\\doc:=word.Documents.item(1);}

tab1:=doc.Tables.Item(1);
DBGrid1.DataSource.DataSet.First;
{if stringgrid1.RowCount>2 then}
for i := 0 to DBGrid1.DataSource.DataSet.RecordCo unt-1 do
tab1.Rows.Add;
for i := 0 to DBGrid1.DataSource.DataSet.RecordCo unt-1 do
for j := 0 to DBGrid1.DataSource.DataSet.FieldCou nt-1 do
tab1.Cell(i+1,j+1).Range.InsertBefo re(DBGrid1.DataSource.DataSet.Field s[j].AsString);
DBGrid1.DataSource.DataSet.Next;
word.Documents.Visible:=true;
end;
#
использую этот код и получаю ошибку ...ошибка на рисунке так же приложен фаил исходник программы

заранее благодарю за любую подсказку

[Ципихович Эндрю]

этот форум Вам не по адресу, что за ЯП?