Habe jetzt unten aufgeführte Funktion. Die führt auch zum gewünschten Ergebnis.
Lässt sich dieses auch wieder umkehren...
?
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;