[Dima170792]

Здравствуйте уважаемые форумчане, подскажите как сделать чтобы при обновлении строчки на некоем веб сайте, в предложении Label автоматически принимал значение нижеуказаной строки,

<span>
<a href="/game/profile">
<img height="16" width="16" title="Здоровье" src="http://cdn03.w.meni.mobi/images/icons/icon_header_health.gif?20131118120353" alt=".">
<span id="ajx_health">128450</span>
</a>
</span>

Код:

procedure TForm1.sSpeedButton1Click(Sender: TObject);
 var
 s: String;
  i: Integer;
begin
    s := (WebBrowser1.Document as IHTMLDocument2).Body.innerHTML;
  i := Pos('<span id="ajx_health">', s);
  sLabel1.Caption := Copy(s, i, Pos('</span>', s) - i);
 end;

Что неправильно в коде - вместо того чтобы принять значение 128450 стоящее между тегами

<span id="ajx_health">[b]128450[/b]</span>

, Label просто обнуляет значение caption помогите пожалуйста разобраться
, заранее благодарен.