Sonderzeichen wo keine sein sollten

[Command3000]

Also den html code hol ich mir mit
variabledeclaration hab ich weggelassen

Delphi-Quellcode:

htmlcode:=WebBrowser1.OleObject.Document.Body.InnerHtml;

wort:= copy(htmlcode,i+10,10); //wort aus html holen

for J:=0 to length(wort) do
begin
for H:=0 to 10 do
begin
if(copy(wort,j,1)=IntToStr(H)) then //Prüfen ob zeichen eine Zahl ist
begin zahl := true;end; // wenn Zahl dann true wenn net dann net *g*
end;
if(zahl = false)then
begin Delete(wort,j,1);end //wenn nicht zahl zeichen löschen
else zahl := false;
end;

weiß isch a bissle amateurhaft geschrieben aber ich wollt schnell nur die ideen ausarbeiten bevor ich wieder was
neues in meinem Kopf hatte.

MfG Command3000

[edit=Admin]Code in Delphi-Tags gesetzt. Künftig bitte selber machen. Mfg, Daniel[/edit]