Получить текст и ссылки с сайта

[reco1123]

В документе который вы мне скинули нету новостей. Смотрите на картинке что мне нужно.

Получить заголовки всех тем и ссылки по которым они ведут

[Iron Monk]

А они всегда такой таблицей набраны? 1-4-3?

[reco1123]

1-4-10 вот так

[Iron Monk]

Сообщение от reco1123

1-4-10 вот так

Завтра с утра разберу.

[Alex11223]

Вот же RSS (XML) http://news.yandex.ru/export.html

[reco1123]

Сообщение от Alex11223

Вот же RSS (XML) http://news.yandex.ru/export.html

Мне это не совсем подходит...

[Iron Monk]

Сообщение от Alex11223

Вот же RSS (XML) http://news.yandex.ru/export.html

Если это устроит - я тильки за.

[reco1123]

Сообщение от Iron Monk

Завтра с утра разберу.

ну что, поможете?

[Iron Monk]

procedure TForm1.Button1Click(Sender: TObject);
var
lst: TStringList;
IdHTTP1: TIdHTTP;
i: integer;
begin
  IdHTTP1:= TIdHTTP.Create(nil);
  lst:= TStringList.Create;
  lst.Text:=Utf8ToAnsi(idHTTP1.Get('http://m.news.yandex.ru/index.html'));
  for i:= 0 to lst.Count - 1 do
    begin
    if Pos('href="/yandsearch?', lst[i]) <> 0 then
      begin
      lst[i]:= Trim(StringReplace(lst[i], 'href="/yandsearch?', 'http://m.news.yandex.ru/yandsearch?',[rfReplaceAll]));
      Memo1.Lines.Add(Copy(lst[i], Pos('http://m.news.yandex.ru/',lst[i]), Pos('=191',lst[i])));
      if Pos('=191', Memo1.Lines[Memo1.Lines.Count - 1]) = 0 then
      Memo1.Lines[Memo1.Lines.Count - 1]:= Memo1.Lines[Memo1.Lines.Count - 1] + '191';
      end;
         if Pos('<span class="b-titles-list__link-i">', lst[i]) <> 0 then
         Memo1.Lines.Add(Copy(Trim(lst[i]), Pos('<span class="b-titles-list__link-i">',Trim(lst[i])) + 36, Pos('</span>',Trim(lst[i])) - 37));
           if Pos('/80x80"/>', lst[i])<> 0 then
           Memo1.Lines.Add(Copy(lst[i], Pos('/80x80"/>',lst[i]) + 9, 255));
             if (Trim(lst[i]) = 'class="b-titles-list__link">') and (Pos('/80x80"/>', lst[i+1]) = 0) then
             Memo1.Lines.Add(Trim(lst[i+1]));
    end;
  lst.Free;
  IdHTTP1.Free;
end;
end.

[reco1123]

а через каждую строку 191 выводит, это для чего сделано?