[RomanNovi4ok]

wdApp.Selection.Range.InlineShapes.AddPicture(PictureFile).ConvertToShape;
Shape := wdDoc.Shapes.Item(wdShapeNo);
Shape.WrapFormat.Type :=1;