TreeView и Word

[PTyTb32]

Доброго времени года, подскажите что я делаю не так?
дано: заполненный TreeView
нужно: создать документ ворд с оглавлением и заголовками взятыми из TreeView, причем не все заголовки одинаковые, а хотябы ' Заголовок 1' и 'Заголовок 2' в соответствии с уровнем узла в TreeView.

я все это сделал, но все заголовки одинаковые(((( код для разделения использую такой

for i:=0 to TreeView1.items.count-1 do
begin
s:=TreeView1.items.item[i].text;
wdrng.insertafter(s); //добавляет текст на страницу ворда
if TreeView1.items.item[i].parent <> nil then
begin
wdapp.selection.find.execute(s);
wdapp.selection.style:='Заголовок 2';
end else
begin
wdapp.selection.find.execute(s);
wdapp.selection.style:='Заголовок 1';

end;
end;

заранее благодарю!!

с оглавлением, как выяснилось, тоже не все хорошо, оно без ссылок((( какие будут предложения?

разные заголовки сделал, там как выяснелось нужно сбрасывать выделение... и у пунктов и подпунктов не должно быть одинаковых названий! осталось только оглавление!!! я его делаю но оно без ссылок, как это исправить?

Все получилось)) параметр UseHyperLinks:=true все чего не хватало)

Будет предупреждение за подряд идущие сообщения. Есть кнопка Правка