Экспорт в Word Делфи

[malicious_devil]

procedure TForm1.Button1Click(Sender: TObject);
var
MsWord,Table:Variant;
i,j:integer;
begin
if ComboBox1.ItemIndex=0 then
MsWord:=CreateOleObject('Word.Application');
MsWord.Visible:=False;
MsWord.Documents.Add;
MsWord.Selection.Font.Name:='Times New Roman';
MsWord.Selection.Font.Size:='12';
MsWord.ActiveDocument.Tables.Add(MsWord.ActiveDocument.Range,
DBGrid4.DataSource.DataSet.RecordCount, DBGrid4.DataSource.DataSet.FieldCount);
Table:=MsWord.ActiveDocument.Tables.Item(1);
Table.Style:='Сетка таблицы';
DBGrid4.DataSource.DataSet.First;
for i:=0 to DBGrid4.DataSource.DataSet.RecordCount-1 do
begin
for j:=0 to DBGrid4.DataSource.DataSet.FieldCount-1 do
Table.Cell(i+1,j+1).Range.InsertBefore(DBGrid4.DataSource.DataSet.Fields[j].AsString);
DBGrid4.DataSource.DataSet.Next;
end;
end;

Не экспортирует в Word? Подскажите почему

[Stilet]

Пошаговку делал?