Hola
Si no necesitas el arreglo de bytes para otra tarea, creo que podés ahorrar un paso:
Código Delphi
[-]
...
type
TArrayStr = array of ShortString;
function StrToHex(WStr: WideString): TArrayStr;
var
j: integer;
begin
SetLength(Result, Length(WStr));
for j:= 0 to Length(WStr) - 1 do
Result[j]:= IntToHex(Ord(WStr[j+1]) - Ord('0'), 2);
end;
...
Un saludo.