[bulldog]

про переменную я знаю, я хотел уточнить если как я понимаю, захожу на страницу, парсингам в переменную вписываю урл(ы) по маске что меня интересует, дальше пишу idhttp.get(сайт/переменная) и цикл или нет?
Вот код который я использую:

procedure TForm2.Button2Click(Sender: TObject);
var
st:TStringStream;
str:AnsiString;
lstr:Ansistring;
li:TListItem;
a:String;
s:TStringStream;
data:TStringList;
i: integer;
begin
s:=TStringStream.Create;
st:=TStringStream.Create;
IdHTTP1.AllowCookies:=true;
data:=tstringlist.create;
try
IdHTTP1:=TIdHTTP.Create(nil);
IdHTTP1.get('' + Form2.Listview1.Items[0].SubItems[0],s);
IdHTTP1.get('' + Form2.Listview1.Items[0].SubItems[0] + 'login.php?r=',s);
Data.Add('username=' +Form2.Listview1.Items[0].SubItems[1]);
Data.Add('password=' + Form2.Listview1.Items[0].SubItems[2]);
IdHTTP1.Post('' + Form2.Listview1.Items[0].SubItems[0]+'login.php',data,s);
IdHTTP1.get('' + Form2.Listview1.Items[0].SubItems[0]+'privatecab.php',s);
s.position:=0;
st:=TStringStream.Create;
IdHttp1.Get('' + Form2.Listview1.Items[0].SubItems[0]+'sites.php',st);
str:=st.DataString;
st.Free;
while Pos('viewp.php?ad',str)>0 do
begin
lstr:=Copy(str,Pos('view p.php?ad',a)+13,6);
Delete(str,1, Pos('viewp.php?ad',a)+12);
li:=ListView1.Items.Add;
li.Caption:=lstr;
end;
finally
idhttp1.free;
end;
end;

Но количество ссылок не отображается, а отображается текст под первой колонкой с верху в низ, да и как по ним перейти ума не приложу