Delphi Conversion String To Hex

[هـآوي]

السلام عليكم ورحمة الله وبركاتة

فونكشن تحويل السترنغ الى هكس 

 

Function StrToHex(Str:String) : String;
 var i,b:integer;  h :String;
begin
 for i := 1 To Length(Str) do
 begin
 b := (Ord (Str[i]) );
 h := IntToHex(b,2) ;
 Result := Result + h;
  end;
end;