insertar bitmap en word
 

Hola de nuevo amigos del foro.
a ver muchachos, tengo un pequeño problema, resulta que estoy desarrollando una sencilla aplicación que genere un documento de word, esto lo he logrado tomando ideas de aqui y de aya, en fin, el hecho es que ahora deseo insertarle una imagen o bitmap de una manera sencilla y no se como, aquí anexo el código para quienes les interese.

OleVariant Template = EmptyParam;
OleVariant NewTemplate = False;
OleVariant ItemIndex = 1;

WordApplication1->Connect();
WordApplication1->GetDefaultInterface()->Visible = True;
WordApplication1->Documents->Add(Template, NewTemplate);

WordDocument1->ConnectTo(WordApplication1->Documents->Item(ItemIndex));

WordApplication1->Options->CheckSpellingAsYouType = False;
WordApplication1->Options->CheckGrammarAsYouType = False;

WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr("hola\n"));
WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr("amigos\n"));
WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr("del club\n"));
WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr(" :) "));
}

de antemano muchas gracias a todos aquellos que se tomen la molestia de leer mi inquietud.:)