Подскажите быстрый способ конвертации...

hex2str ("446562" в "Deb")
str2hex ("Deb" в "446562")

и есть ли чето быстрее чем
AnsiReplaceStr (или AnsiReplaceText)


Вот мои способа:
function getstr(s: string) : string;
var
i: integer;
begin
Result:='';
for i:=1 to Length(s) do
if i mod 2 = 0 then
Result:= Result+chr(strtoint('$'+s[i-1]+s));
end;

function gethex(s: string) : string;
var
i: integer;
begin
Result:='';
for i:=1 to Length(s) do
Result:= Result+inttohex(ord(s), 2);
end;