Word, Delphi

[Антон Лысенко]

При создании таблицы её границы не отображаются.
Пробовал использовать AutoFormat но там нет обычной таблицы с черными линиями.
Подскажите пожалуйста как нарисовать эти границы или придать им цвет. Хз что делать. В таблицах ничего не шарю, только учусь. Обшарил интернет - ничего толкового не нашел.

procedure TForm1.Button1Click(Sender: TObject);
 begin
   w:=CreateOleObject('Word.Application');
   w.Documents.Add;
   w.ActiveDocument.Tables.Add(Range:=w.ActiveDocument.Range,NumRows:=Unit3.DataModule3.ADOQuery1.RecordCount+1,NumColumns:=DBGrid1.Columns.Count);
   w.Visible:=true;
 end;

______________________________
Спасибо, я уже нашел ошибку)

[phomm]

var
  W, Table: Variant;
...
W := CreateOleObject('Word.Application');
W.Documents.Add;
W.Visible := True;
W.ActiveDocument.Tables.Add(W.ActiveDocument.Range, {высота},{ширина});
Table := W.ActiveDocument.Tables.Item(1);
Table.Borders.OutsideLineStyle := wdLineStyleSingle;
Table.Borders.InsideLineStyle := wdLineStyleSingle;

У меня примерно так было, Вам возможно допилить чутка потребуется