while Pos('view.php?ad=',str)>0 do begin lstr:=Copy(str,Pos('view.php?ad=',str)+12,7); Form2.ListView1.Items[Form2.ListView1.Items.Count-1].SubItems.Add(lstr);