Функция для перевода текста в HTML-сущности

Функция для перевода текста в HTML-сущности представляет собой перевод из текстового представления в шестнадцатеричный код символа строки с добавлением перед ним знака %.

function GetHTMLCode(sToHTML: String): String;
var
i: Integer;
begin
for i:= 1 to Length(sToHTML) do
begin
Result:= Result + '%' + IntToHex(Ord(sToHTML[i]), 2);
end;
end;

Например, передаём в эту функцию строку Программирование, на выходе получаем строку %CF%F0%EE%E3%F0%E0%EC%EC%E8%F0%EE%E2%E0%ED%E8%E5
которую удобно применять в HTML-коде, например, в mailto.