procedure TMOWordReport.EditReplacePicture(const AFind, AReplace: string);
var
  LFind: WordXP.Find;
  LStrFind, LReplaceWith, LReplace, LWrap: OleVariant;
begin
  FWordBasic.EditFindClearFormatting;
  FWordBasic.EditReplaceClearFormatting;
  LFind := FWordApp.DefaultInterface.Selection.Find;
  LStrFind := AFind;
  LReplaceWith := CEMPTY_STR;
  LReplace := wdReplaceOne;
  LWrap := wdFindContinue;
  if LFind.Execute(LStrFind, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
    EmptyParam, EmptyParam, LWrap, EmptyParam, LReplaceWith, LReplace,
    EmptyParam, EmptyParam, EmptyParam, EmptyParam)
  then
    FWordBasic.InsertPicture(Name := AReplace, LinkToFile := 0);
end;