Hallo, ich beantworte meine Frage mal selbst:
Das geht so:
Delphi-Quellcode:
function WStrToHex(SourceStr: WideString): WideString;
var
hexstr: string;
i : integer;
begin
result := '';
hexstr := '';
for i := 1 to Length(SourceStr) do
hexstr := hexstr + IntToHex(Word(SourceStr[i]), 2);
Result := hexstr;
end;