Вставка label и image в один документ

[Same(Ц)]

Всем доброго времени суток, у меня такой вопрос,возможно его уже не раз рассматривали, но я не нашел на него ответа. У меня есть программа в ней нужно вывести отчет в документе Word. На форме имеются 24 label и 1 image нужно сохранить это все в одном документе желательно через savedialog. Все что нашел в интернете и как то попробовал реализовать ниже...Получается, что когда я открываю файл отчет.doc открываются два документа в одном картинка в другом label...Помогите пожалуйста=\

procedure TForm4.N4Click(Sender: TObject);
var
F:textFile;
vstart,vend:olevariant;
begin
assignfile(F,'C:\Отчет.doc');
rewrite(F);
writeln(F,Label1.caption,': ',Label13.caption);
writeln(F,' ');
writeln(F,Label2.caption,': ',Label14.caption);
writeln(F,' ');
writeln(F,Label3.caption,': ',Label15.caption);
writeln(F,' ');
writeln(F,Label4.caption,': ',Label16.caption);
writeln(F,' ');
writeln(F,Label5.caption,': ',Label17.caption);
writeln(F,' ');
writeln(F,Label6.caption,': ',Label18.caption);
writeln(F,' ');
writeln(F,Label7.caption,': ',Label19.caption);
writeln(F,' ');
writeln(F,Label8.caption,': ',Label20.caption);
writeln(F,' ');
writeln(F,Label9.caption,': ',Label21.caption);
writeln(F,' ');
writeln(F,Label10.caption,': ',Label22.caption);
writeln(F,' ');
writeln(F,Label11.caption,': ',Label23.caption);
writeln(F,' ');
writeln(F,Label12.caption,': ',Label24.caption);
writeln(F,' ');
closeFile(F);
clipboard.Assign(image1.Picture);
WordDocument1.Range(vstart,vend).Pa ste;
end;

[evg_m]

самое простое что можно придумать глядя на ваш код

WordDocument1.Range(vstart,vend).Text:=lavel2.Caption;

и ЗАДАВАТЬ нужные значения vstart, vend а не просто копировать текст.

[Same(Ц)]

Честно говоря не многое изменилось, за исключением того что теперь вместо картинки во втором документе выдается значение label...Но это наверно из за того что я не совсем понял совет насчет vstart vend...

[FaTaL]

А зачем Вы работаете с Документов офис не через COM?
Прочтите книгу "Василий Корняков Программирование документов и приложений MS Office в Delphi" и у Вас отпадут эти вопросы.

[evg_m]

Но это наверно из за того что я не совсем понял совет насчет vstart vend...

а это указание в КАКОЕ место документа вставлять картинку, текст. Поскольку вы их не меняете никак, то вы все время вставляете на ОДНО и то же место (сначала картинку, потом туда же вместо картинки текст. а что это такое (vstart vend ) читайте книги (тот же Корняков).

[Same(Ц)]

ааа ок спасибо большое,уже скачал книгу,надеюсь найду все что мне необходимо,большое всем спасибо)