[Alegun]

Можно ещё вот так

Код:

const tg ='<span id="ajx_health">';
procedure TForm1.sSpeedButton1Click(Sender: TObject);
 var
 s: String;
begin
 s := (WebBrowser1.Document as IHTMLDocument2).Body.innerHTML;
 Delete(s, 1, Pos(tg, s) + Length(tg) - 1);
 Delete(s, Pos('</span>', s), Length(s));
 sLabel1.Caption := s;
 end;

но это очень грубо

З.Ы.

Ну или всё же через посЭкс

Код:

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) + Length('<span id="ajx_health">');
  sLabel1.Caption := Copy(s, i, PosEx('</span>', s, i) - i);
 end;