Capture dynamic links in QTP using xpath based Identification

browser("creationtime:=0").Navigate "yahoo.com"
Set mypage=browser("title:=.*").page("titile:=.*")
mypage.webedit("class:=input-query input-long med-large").Click
Set ws=createobject("wscript.shell")
ws.SendKeys "Hello"
wait(10)
p1="//*[starts-with(@id,'yui_3_4_0_1_1')]/ul/li["
p2="]/a"
For i= 1 to 10
print mypage.link("xpath:="& p1 &i& p2).getroproperty("innertext")
Next