Bug in Ord Function

[ALmuhhnad]

تصحيح :
في Delphi XE3 احصل على نفس النتائج في Delphi7 :
Delphi XE3 :

PHP كود :

Ord('ه')
يتم إرجاع القيمة E5 


لكن عندما اطبق هذه السطور :

PHP كود :

var
  i : Integer;
const
  sS = 'هههههه';
begin
  for I := 1 to Length(sS) do
  begin
    form2.Caption := form2.Caption + ' ' + IntToHex(ord(sS[I]),4);
  end;
end; 


احصل القيمة التالية في Caption النافذة :

PHP كود :

0647 0647 0647 0647 0647 0647 


علماً اني طبقت هذه الاكود في Delphi7 ولا زال يظهر نفس النتائج

الآن اسئل السؤال السابق ...
كيف اجعل Delphi XE3 يقوم بإرجاع قيمة Delphi7 ؟ اي E5