W:=CreateOleObject('Word.Application');
W.Documents.Add;
table:=W.ActiveDocument.Tables.Add(Range:=W.ActiveDocument.Range,   NumRows:=2, NumColumns:=2);
aCell:=Table.Cell(1,1);
aCell.Range.Text:='Какой-то текст';

А вот дальше в эту ячейку нужно вставить картинку из файла.

aCell.InlineShapes.AddPicture(FileName:="F:\100_0003.jpg", LinkToFile:=False, SaveWithDocument:=True);