var
  WordApp,WordDoc,WordTable:OleVariant;
.....
    WordApp := CreateOleObject('Word.Application');
    WordDoc := WordApp.Documents.Add;
    WordTable := WordDoc.Tables.Add(WordApp.Selection.Range, 5,5);
    WordTable.Cell(2,2).Range.InsertAfter('abcdefg');