HexToString

[fapsons]

Hallo Leute,
habe folgende Funktion, um einen String nach Hex umzuwandeln.
Ich scheiter allerdings dabei eine Funktion zu schreiben, die das Gegenteil bewirkt.
Könnt ihr mir helfen eine Funktion HexToString zu schreiben?
Wäre super!!!

Gruß,
fapsons


function StringToHex(s:string) : string;
var i : integer;
begin
result := '';
for i := 1 to length(s) do
begin
if i = length(s) then result := result + intToStr(ord(s[i]))
else
result := result + IntToStr(ord(s[i])) + '';
end;
end;