0. Запуск MS Word

Подключаем необходимый для работы модуль и объявляем переменную:
uses ComObj;
...
var MsWord: variant;

Запускаем MS Word и показываем на экране:
MsWord:= CreateOleObject('Word.Application');
MsWord.Visible := True;

Создание нового документа:
MsWord.Documents.Add;

1. Линия

Рисуем линию в документе MS Word на текущем листе:
MsWord.ActiveDocument.Shapes.AddLine(x1, y1, x2, y2);

где x1, y1 - координаты начала, а x2, y2 - координаты конца линии.

Линия, выделенная для редактирования (форматирования):
MsWord.ActiveDocument.Shapes.AddLine(x1, y1, x2, y2).;

2. Прямоугольник
MsWord.ActiveDocument.Shapes.AddShape(1, x1, y1, x2, y2);

где x1, y1, x2, y2 - координаты прямоугольника.

3. Произвольная фигура (или автофигура в терминологии MS Word)

В общем случае, произвольная фигура рисуется так:
MsWord.ActiveDocument.Shapes.AddShape(i, x1, y1, x2, y2);

где i - номер фигуры (соответствует порядку следования фигур в MS Word на панели рисования), x1, y1, x2, y2 координаты прямоугольника в который будет вписан объект.

4. Вставка картинки (произвольного изображения) в текущее положение курсора
MsWord.ion.InlineShapes.AddPicture(FileName:='C:WINDOWSПузыри.bmp', LinkToFile:=False, SaveWithDocument:=True);

При выполнении данной команды нужно определить следующие праметры:

FileName - путь к графическому файлу; LinkToFile - булевский флаг, указывающий на необходимость связи с источником; SaveWithDocument - булевский флаг, указывающий на свойства рисунка при сохранении документа.

5. Манипулцяции (форматирование) с фигурами

Выбор фигуры можно осуществить следующим образом:
MsWord.ActiveDocument.Shapes.item(n).;

где n - порядковй номер фигуры.

Заливка фона текущей фигуры
MsWord.ion.ShapeRange.Fill.ForeColor.RGB:=RGB(r, g, b);

где r, g, b - соответственно красная, зеленая и синяя составляющая цвета.

Толщина линий текущей фигуры
MsWord.ion.ShapeRange.Line.Weight:=5;

Цвет линии текущей фигуры
MsWord.ion.ShapeRange.Line.ForeColor.RGB:=RGB(r, g, b);

Группировка фигур
MsWord.ActiveDocument.Shapes.Range(VarArrayOf(['3', '5', '8'])).group;

где 3, 5, 8 - порядковый номер фигуры.

6. Блокировка механизма вывода на экран отрисовки

В случае, если вы не хотите наблюдать как на листе отрисовываются ваши манипуляции с графическими объектами, то можно воспользоваться ниже приведенными командами.
// Выключение обновления экрана
MsWord.ScreenUpdating := False;

// Обновление экрана
MsWord.Application.ScreenRefresh;

// Включение обновления экрана
MsWord.ScreenUpdating := True;

Примечания:
Рисование осуществляется на актвином листе.
Координаты действуют только для текущего листа.
Удачной работы!