[Assistant]

а Pos или PosEx не пробовал использовать?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  c: string;
  n1,n2: integer;
  title: string;
begin
  c := IdHTTP1.Get('http://mobile-review.com.feedsportal.com/c/33244/f/557683/index.rss');
  if c = '' then
    ShowMessage('Ошибка'+#13+'невозможно получить html-код...')
  else
  begin
    n1 := Pos('<title>',c) + Length('<title>');
    n2 := Pos('</title>',c) - n1;
    title := Copy(c,n1,n2)
    ShowMessage(title);
  end;
end;