请问该如何改写以下VB 的代码 为 delphi 的代码

Question

请问该如何改写以下VB 的代码 为 delphi 的代码
 vb源码：
  Dim il As Integer
  Dim ih As Integer
  Dim ID As Integer
  iLow ＝ 52
  iHigh ＝ 18
  ID = Int(CInt(iLow ) / 16) * 10 + CInt(iLow) Mod 16
  ID = ID + 100 * Int(CInt(iHigh ) / 16) * 10 + 100 * (CInt(iHigh ) Mod 16)
 我改写的delphi 源码： 结果是错误的
  var
     iLow, iHigh, ID: Integer;
  begin
      iLow :＝ 52;
      iHigh :＝ 18;
      ID := ILow Div 16 * 10 + iLow Mod 16;
      ID := ID + 100 * iHigh Div 16 * 10 + 100 * iHigh Mod 16;
 end;

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var
  iLow, iHigh, ID: Integer;
begin
  iLow := 52;
  iHigh := 18;
  ID := ILow Div 16 * 10 + iLow Mod 16;
  ID := ID + 100 * (iHigh Div 16 )* 10 + 100 * (iHigh Mod 16);
  ShowMessage(IntToStr(ID));
end;