Вставка jpg-изображений из папки в Word

if (SaveDialog1->Execute()) {
  OleContainer1->SaveToFile(SaveDialog1->FileName);}

int ires;
TSearchRec SR;
AnsiString ext;
List->Clear();
ires = FindFirst("C:\\image\\*.*", faAnyFile | faArchive, SR);
while (ires == 0)
{
    ext = ExtractFileExt(SR.Name);
    if ((ext == ".bmp") || (ext == ".jpg")) {
        List->Items->Add(SR.Name);
    }
    ires = FindNext(SR);
}
FindClose(SR);

AnsiString Path = "\\Ìóçûêà\\*.mp3";
  TSearchRec sr;
  int iAttributes = faAnyFile;
  int done = FindFirst( Path, iAttributes, sr );
  while(!done)
 {
  ListBox1->Items->Add(ChangeFileExt(sr.Name,""));
  done = FindNext(sr);
 }
  FindClose(sr);
 }

AnsiString Path = "image\\*.jpg";
  TSearchRec sr;
  int iAttributes = faAnyFile;
  int done = FindFirst( Path, iAttributes, sr );
  while(!done)
 {
  List->Items->Add(ChangeFileExt(sr.Name,""));
  done = FindNext(sr);
 }
  FindClose(sr);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Variant vVarParagraph,Var,Dms,Word;
 Word = CreateOleObject("Word.Application");
 Word.OlePropertySet("Visible", false);
 Variant Doc = Word.OlePropertyGet("Documents");
 Doc.OleProcedure("Add");
 
 if(Doc.OlePropertyGet("Count") != 1)
 {
  MessageBox(0, "Ошибка при создании документов",
                 "Ошибка", MB_OK);
 
  return;
 }
 Dms=Doc.OleFunction("Item",1);
 //Смотреть будем тоже на первый документ
 Dms.OleProcedure("Activate");
 Var=Dms.OlePropertyGet("Paragraphs");
 Var.OleProcedure("Add");
 vVarParagraph=Var.OleFunction("Item",1);
 Dms.OlePropertyGet("Shapes").OleProcedure("AddPicture", (ExtractFilePath(Application->ExeName)+"1286377071.jpg").c_str(), false, true, 0, 0);
 Word.OlePropertySet("Visible", true);
 
}