internal static unsafe int CalculateChecksum(byte* byteArray)
  {
    // ISSUE: fault handler
    try
    {
      int num1 = 0;
      int num2 = 0;
      do
      {
        if (num2 != 12 && num2 != 7)
          num1 = (int) *(byte*) (num2 + (IntPtr) byteArray) + num1; 
        ++num2;
      }
      while (num2 < 19);
      int num3 = num1;
      int num4 = 3844;
      int num5 = num3 / num4 * 3844;
      return num3 - num5;
    }
    __fault
    {
      GNEncoder gnEncoder;
      // ISSUE: method pointer
      // ISSUE: cast to a function pointer type
      \u003CModule\u003E.___CxxCallUnwindDtor((__FnPtr<void (void*)>) __methodptr(GNEncoder\u002E\u007Bdtor\u007D), (void*) &gnEncoder);
    }
  }

procedure TForm5.Button1Click(Sender: TObject);
var
  n1, n2, n3, n4, i:Integer;
  n5:Extended;
  b:TBytes;
  s:string;
begin
  s:='адавакедавра!адавакедавра!';
  b:=TEncoding.UTF8.GetBytes(s);
  n1:=0;
  n2:=0;
  while n2<19 do
    begin
      if (n2<>12) and (n2<>7) then
        n1:=Byte(n2+length(b))+n1; //смущает правильность понимания переноса IntPtr
      Inc(n2);
    end;
  n3:=n1;
  n4:=3844;
  n5:=n3/n4*3844;
  i:=n3-trunc(n5);
end;

var
  n1, n2, n3, n4, i:Integer;
  n5:Extended;
  b:TBytes;
  s:string;
begin
  s:='адавакедавра!адавакедавра!';
  b:=TEncoding.UTF8.GetBytes(s);
  n1:=0;
  n2:=0;
  repeat
    if (n2<>12) and (n2<>7) then
      n1:=b[n2]+n1;
    Inc(n2);
  until n2=19;
  n3:=n1;
  n4:=3844;
  n5:=n3/n4*3844;
  i:=n3-trunc(n5);
end;