Delphi7varustr: WideString;for i := 1 to Length(ustr) dostrResult := strResult + IntTohex(Ord(ustr[i]),4);