Suche String->Hex Funktion

[p80286]

Wenn ich ehrlich bin ist mir diese "Length(x)*sizeof(x[1])" etwas suspect.
Da bei der Umwandlung irgendwas_Hex immer ein Byte in 2Zeichen umgewandelt wird sollte byteweise gelesen werden und mit char geschrieben werden, also ungefähr so

setlength(dest,sizeof(source)*2);
for i:=1 to sizeof(source) do
dest[i]:=machwas(source[i]);

Gruß
K-H