Se prooprio volete avventurarvi è più fatta così
const
arrayconversione:array [161..255] of Char= ('¡','¢','£','¤','¥','¦','§','¨','©','ª','«','¬','','®','¯','°','±','²','³','´','ì','¶','·','¸','¹','º','»','¼','½','¾','¿','À','Á','Â','Ã','Ä','Å','Æ','Ç','È','É','Ê','Ë','Ì','Í','Î','Ï','Ð','Ñ','Ò','Ó','Ô','Õ','Ö','×','Ø','Ù','Ú','Û','Ü','Ý','Þ','ß','à','á','â','ã','ä','å','æ','ç','è','é','ê','ë','ì','í','î','ï','ð','ñ','ò','ó','ô','õ','ö','÷','ø','ù','ú','û','ü','ý','þ','ÿ');
function g_testoafel(i_stringa:string):string;
var
i:Integer;
begin
Result:=i_stringa;
if i_stringa='' then Exit;
for i:=Low(arrayconversione) to High(arrayconversione) do
Result:=StringReplace(result,arrayconversione[i],'&#'+inttostr(i)+';',[rfreplaceall]);
Result:=StringReplace(result,'<','<',[rfreplaceall]);
Result:=StringReplace(result,'&','&',[rfreplaceall]);
Result:=StringReplace(result,'"','"',[rfreplaceall]);
Result:=StringReplace(result,'''',''',[rfreplaceall]);
Result:=StringReplace(result,#10,' ',[rfreplaceall]);
Result:=StringReplace(result,#13,' ',[rfreplaceall]);
end;
io, però, lo sconsiglio comunque