Delpi Word mehrere Tabellen erstellen

[Nimmersatt]

Delphi-Quellcode:

var wordTable: array[1..2] of OLEVariant;
    e: integer;

begin
 try
    Word := CreateOleObject('Word.Application');
  except
    Exit;
  end;

  Word.Visible := True;
  NewDoc := Word.Documents.Add;

  for e:=1 to 2 do
  begin
    WordTable[e]:=NewDoc.Tables.Add(Word.Selection.Range,2,2);
  
    WordTable[e].Cell(1,1).Range.Text :='aaa';
    WordTable[e].Cell(1,2).Range.Text :='bbb';
    WordTable[e].Cell(2,1).Range.Text :='ccc';
    WordTable[e].Cell(3,2).Range.Text :='ddd';

    wordTable[e].Borders.InsideLineStyle :=1;
    wordTable[e].Borders.outsideLineStyle :=1;
  end;
end;

Es lassen sich einfach nicht zwei identische Tabellen untereinander anzeigen.
Welche Befehle fehlen ?