пример построения таблицы Word Delphi

procedure TForm1.Button1Click(Sender: TObject);
var WordApp,doc,table: Variant; i,j:integer;
begin
  WordApp:=CreateOleObject('Word.Application');
  doc:=WordApp.Documents.Add;
  WordApp.Visible:=true;
  table:=doc.tables.add(
    WordApp.Selection.Range,
    NumRows:=4, // тут ширина и колво-колонок должно быть уже известно.
    NumColumns:=5,
    DefaultTableBehavior:=1,
    AutoFitBehavior:=1
  );
  // настройка ширины
  table.columns.item(1).PreferredWidth:=70;
  table.columns.item(2).PreferredWidth:=30;
  table.columns.item(3).PreferredWidth:=20;
  table.columns.item(4).PreferredWidth:=40;
  table.columns.item(5).PreferredWidth:=50;
  // выделение шапки
  table.rows.item(1).select;
  WordApp.Selection.Font.Bold:=true;
  WordApp.Selection.Font.Size:=12;
  //
  randomize;
  // заполнение таблицы
  for i:=1 to 4 do
    for j:=1 to 5 do begin
      table.cell(i,j).select;
      WordApp.Selection.typetext(inttostr(random(100)));
    end;
end;