[borockov]

Друзья, возник ещё 1 вопрос. Прошу помочь тех кто разбирается в объектной модели word. Вот смотрите таким образом я делаю вывод данных из dbedit в word

Код:

procedure TForm3.Button1Click(Sender: TObject);
var
word,doc:OleVariant;
str,text,type1,foto:string;
begin
Getdir(0,str);
 word:=CreateOleObject('Word.Application');
 word.documents.open(str+'\sotr2.dot');
 
 doc:=word.documents.item(1);
 text:=doc.paragraphs.item(1).Range.Text;
 text:=Replace(text,'DBEdit3',DBEdit3.Text);
 text:=Replace(text,'DBEdit4',DBEdit4.Text);
 text:=Replace(text,'DBEdit5',DBEdit5.Text);
 doc.paragraphs.item(1).Range.Text:=text;
 
 doc:=word.documents.item(1);
 text:=doc.paragraphs.item(3).Range.Text;
 text:=Replace(text,'DBEdit1',DBEdit1.Text);
 doc.paragraphs.item(3).Range.Text:=text;

  doc:=word.documents.item(1);
 text:=doc.paragraphs.item(6).Range.Text;
 text:=Replace(text,'DBEdit1',DBEdit1.Text);
 doc.paragraphs.item(6).Range.Text:=text;

Друзья как вывести фото из dbimage? С текстом всё понятно. Если к тексту мы обращаемся с помощью "paragraphs" то как можно обратиться к фото?