Ich würde es per Pos und PosEx machen.
Wenn der Text "Du hast bereits X Tassen zerstört" zwischen
<div class="destroyed">Du hast bereits X Tassen zerstört</div>
ist sollte das kein Problem sein.
Z.B. so:
Delphi-Quellcode:
// NICHT getestet!
var
pPos1, pPos1Ex: Integer;
begin
pPos1 := Pos('<div class="destroyed">', DeinQuelltextString);
pPos1Ex := PosEx('</div>', DeinQuelltextString, pPos1+1);
// Jetzt ins Label:
LabelX.Caption := Copy(DeinQuelltextString pPos1+23,
(pPos1-pPos1Ex+23)*-1);
end;
// Man kann es aber auch mit folgender Funktion schöner regeln
function GetTxt(s1,s2,txt:String):String;
begin
Delete(txt,1,Pos(s1,txt)+length(s1)-1);
Delete(txt,Pos(s2,txt),Length(txt));
Result := txt;
end;
// Aufruf:
LabelN.Caption := GetTxt('<div class="destroyed">','</div>', DeinQuelltextString);
Das geht aber NUR wenn es da ein Tag gibt, dass den Text "Tassen zerstört" eindeutig wiedergibt!