function SubHtmlTAG(Valor: String): String;
var
X: Integer;
begin
for X:=0 to 255 do
begin
Valor:=ProcuraeSubstitui(Valor,'&#'+IntToStr(X)+';',Chr(X));
end;
Valor:=ProcuraeSubstitui(Valor,'€',#8364);
Valor:=ProcuraeSubstitui(Valor,'℗',#8471);
Valor:=ProcuraeSubstitui(Valor,'',#1);
Valor:=ProcuraeSubstitui(Valor,' ',#32);
Valor:=ProcuraeSubstitui(Valor,'&','&');
Valor:=ProcuraeSubstitui(Valor,'⁄','/');
Valor:=ProcuraeSubstitui(Valor,'>','>');
Valor:=ProcuraeSubstitui(Valor,'<','<');
Valor:=ProcuraeSubstitui(Valor,'"','"');
Valor:=ProcuraeSubstitui(Valor,'−','-');
Valor:=ProcuraeSubstitui(Valor,'ˆ','^');
Valor:=ProcuraeSubstitui(Valor,'˜','~');
Valor:=ProcuraeSubstitui(Valor,'ƒ',#131);
Valor:=ProcuraeSubstitui(Valor,'…',#133);
Valor:=ProcuraeSubstitui(Valor,'†',#134);
Valor:=ProcuraeSubstitui(Valor,'‡',#135);
Valor:=ProcuraeSubstitui(Valor,'‰',#137);
Valor:=ProcuraeSubstitui(Valor,'Š',#138);
Valor:=ProcuraeSubstitui(Valor,'‹',#139);
Valor:=ProcuraeSubstitui(Valor,'Œ',#140);
Valor:=ProcuraeSubstitui(Valor,'‘',#145);
Valor:=ProcuraeSubstitui(Valor,'’',#146);
Valor:=ProcuraeSubstitui(Valor,'“',#147);
Valor:=ProcuraeSubstitui(Valor,'”',#148);
Valor:=ProcuraeSubstitui(Valor,'•',#149);
Valor:=ProcuraeSubstitui(Valor,'–','-');
Valor:=ProcuraeSubstitui(Valor,'—',#151);
Valor:=ProcuraeSubstitui(Valor,'™',#153);
Valor:=ProcuraeSubstitui(Valor,'š',#154);
Valor:=ProcuraeSubstitui(Valor,'›',#155);
Valor:=ProcuraeSubstitui(Valor,'œ',#156);
Valor:=ProcuraeSubstitui(Valor,'Ÿ',#159);
Valor:=ProcuraeSubstitui(Valor,'¡',#161);
Valor:=ProcuraeSubstitui(Valor,'¢',#162);
Valor:=ProcuraeSubstitui(Valor,'£',#163);
Valor:=ProcuraeSubstitui(Valor,'¤',#164);
Valor:=ProcuraeSubstitui(Valor,'¥',#165);
Valor:=ProcuraeSubstitui(Valor,'¦',#166);
Valor:=ProcuraeSubstitui(Valor,'§',#167);
Valor:=ProcuraeSubstitui(Valor,'¨',#168);
Valor:=ProcuraeSubstitui(Valor,'©',#169);
Valor:=ProcuraeSubstitui(Valor,'ª',#170);
Valor:=ProcuraeSubstitui(Valor,'«',#171);
Valor:=ProcuraeSubstitui(Valor,'¬',#172);
Valor:=ProcuraeSubstitui(Valor,'®',#174);
Valor:=ProcuraeSubstitui(Valor,'¯',#175);
Valor:=ProcuraeSubstitui(Valor,'°',#176);
Valor:=ProcuraeSubstitui(Valor,'±',#177);
Valor:=ProcuraeSubstitui(Valor,'²',#178);
Valor:=ProcuraeSubstitui(Valor,'³',#179);
Valor:=ProcuraeSubstitui(Valor,'´',#180);
Valor:=ProcuraeSubstitui(Valor,'µ',#181);
Valor:=ProcuraeSubstitui(Valor,'¶',#182);
Valor:=ProcuraeSubstitui(Valor,'·',#183);
Valor:=ProcuraeSubstitui(Valor,'¸',#184);
Valor:=ProcuraeSubstitui(Valor,'¹',#185);
Valor:=ProcuraeSubstitui(Valor,'º',#186);
Valor:=ProcuraeSubstitui(Valor,'»',#187);
Valor:=ProcuraeSubstitui(Valor,'¼',#188);
Valor:=ProcuraeSubstitui(Valor,'½',#189);
Valor:=ProcuraeSubstitui(Valor,'¾',#190);
Valor:=ProcuraeSubstitui(Valor,'¿',#191);
Valor:=ProcuraeSubstitui(Valor,'À',#192);
Valor:=ProcuraeSubstitui(Valor,'Á',#193);
Valor:=ProcuraeSubstitui(Valor,'Â',#194);
Valor:=ProcuraeSubstitui(Valor,'Ã',#195);
Valor:=ProcuraeSubstitui(Valor,'Ä',#196);
Valor:=ProcuraeSubstitui(Valor,'Å',#197);
Valor:=ProcuraeSubstitui(Valor,'Æ',#198);
Valor:=ProcuraeSubstitui(Valor,'Ç',#199);
Valor:=ProcuraeSubstitui(Valor,'È',#200);
Valor:=ProcuraeSubstitui(Valor,'É',#201);
Valor:=ProcuraeSubstitui(Valor,'Ê',#202);
Valor:=ProcuraeSubstitui(Valor,'Ë',#203);
Valor:=ProcuraeSubstitui(Valor,'Ì',#204);
Valor:=ProcuraeSubstitui(Valor,'Í',#205);
Valor:=ProcuraeSubstitui(Valor,'Î',#206);
Valor:=ProcuraeSubstitui(Valor,'Ï',#207);
Valor:=ProcuraeSubstitui(Valor,'Ð',#208);
Valor:=ProcuraeSubstitui(Valor,'Ñ',#209);
Valor:=ProcuraeSubstitui(Valor,'Ò',#210);
Valor:=ProcuraeSubstitui(Valor,'Ó',#211);
Valor:=ProcuraeSubstitui(Valor,'Ô',#212);
Valor:=ProcuraeSubstitui(Valor,'Õ',#213);
Valor:=ProcuraeSubstitui(Valor,'Ö',#214);
Valor:=ProcuraeSubstitui(Valor,'×',#215);
Valor:=ProcuraeSubstitui(Valor,'Ø',#216);
Valor:=ProcuraeSubstitui(Valor,'Ù',#217);
Valor:=ProcuraeSubstitui(Valor,'Ú',#218);
Valor:=ProcuraeSubstitui(Valor,'Û',#219);
Valor:=ProcuraeSubstitui(Valor,'Ü',#220);
Valor:=ProcuraeSubstitui(Valor,'Ý',#221);
Valor:=ProcuraeSubstitui(Valor,'Þ',#222);
Valor:=ProcuraeSubstitui(Valor,'ß',#223);
Valor:=ProcuraeSubstitui(Valor,'à',#224);
Valor:=ProcuraeSubstitui(Valor,'á',#225);
Valor:=ProcuraeSubstitui(Valor,'â',#226);
Valor:=ProcuraeSubstitui(Valor,'ã',#227);
Valor:=ProcuraeSubstitui(Valor,'ä',#228);
Valor:=ProcuraeSubstitui(Valor,'å',#229);
Valor:=ProcuraeSubstitui(Valor,'æ',#230);
Valor:=ProcuraeSubstitui(Valor,'ç',#231);
Valor:=ProcuraeSubstitui(Valor,'è',#232);
Valor:=ProcuraeSubstitui(Valor,'é',#233);
Valor:=ProcuraeSubstitui(Valor,'ê',#234);
Valor:=ProcuraeSubstitui(Valor,'ë',#235);
Valor:=ProcuraeSubstitui(Valor,'ì',#236);
Valor:=ProcuraeSubstitui(Valor,'í',#237);
Valor:=ProcuraeSubstitui(Valor,'î',#238);
Valor:=ProcuraeSubstitui(Valor,'ï',#239);
Valor:=ProcuraeSubstitui(Valor,'ð',#240);
Valor:=ProcuraeSubstitui(Valor,'ñ',#241);
Valor:=ProcuraeSubstitui(Valor,'ò',#242);
Valor:=ProcuraeSubstitui(Valor,'ó',#243);
Valor:=ProcuraeSubstitui(Valor,'ô',#244);
Valor:=ProcuraeSubstitui(Valor,'õ',#245);
Valor:=ProcuraeSubstitui(Valor,'ö',#246);
Valor:=ProcuraeSubstitui(Valor,'÷',#247);
Valor:=ProcuraeSubstitui(Valor,'ø',#248);
Valor:=ProcuraeSubstitui(Valor,'ù',#249);
Valor:=ProcuraeSubstitui(Valor,'ú',#250);
Valor:=ProcuraeSubstitui(Valor,'û',#251);
Valor:=ProcuraeSubstitui(Valor,'ü',#252);
Valor:=ProcuraeSubstitui(Valor,'ý',#253);
Valor:=ProcuraeSubstitui(Valor,'þ',#254);
Valor:=ProcuraeSubstitui(Valor,'ÿ',#255);
Result:=Valor;
end;