var
sl:tstringlist;
i:integer;
begin
sl:=tstringlist.create;
sl.text:=http.get('site.ru');
for i:=0 to sl.count-1 do
begin
//поиск строки, вывод куда надо
end;
end;