Delphi Conversion String To Hex

[x-member]

تم اختصار 3 اسطر , احب العدد 7 

Function StrToHex(str1:string):string;
var i : integer; str2:string;
begin
for i := 1 to length(str1) do
str2 := str2 + IntToHex(ord(str1[i]),2);
result := str2;
end;