Delphi работа с MsWord

[McFrey]

Доброго времени суток уважаемые программисты.
Необходимо нарисовать в документе word какую либо фигуру, например прямоугольник. рисую вот так:

MsWord.ActiveDocument.Shapes.AddShape(1, x1, y1, x2, y2);

координаты рандомом из определенных промежутков, все получается, но как только хочу поменять цвет компилятор ругается! Как быть?
цвет меняю так:

MsWord.Selection.ShapeRange.Fill.ForeColor.RGB:=RGB(0, 1, 1);

на что вылетает ошибка: Ole Error 800A0108
или так:

MsWord.ion.ShapeRange.Fill.ForeColor.RGB:=RGB(0, 1, 1);

здесь ошибка что метод ион не предназначен для работы с автоматическими объектами.
Я думаю многие с этим сталкивались. Как быть?

[Xardas]

Делайте таким образом:

MsWord.ActiveDocument.Shapes.Item(n).Fill.ForeColor.RGB := RGB(r, g, b)

n - индекс нужного объекта

[McFrey]

Xardas, спасибо большое,сработало так как и должно!