i := i + 2;

  inc(i, 2);

.....
.00410CC9: 43           inc         ebx                // inc(nStr);
.00410CCA: BE01000000   mov         esi,000000001      // nPos := 1;
.00410CCF: 83C102       add         ecx,002 ;" "       // i := i + 2; или inc(i,2); -- пофиг
.00410CD2: EB01         jmps       .000410CD5          // Continue;
.00410CD4: 41           inc         ecx                // inc(i);
.00410CD5: 3B4DFC       cmp         ecx,[ebp][-04]     // while (i < Value)...
.00410CD8: 7CDB         jl         .000410CB5
.....

#pas
.....
  while i < Value do
  begin
    .....
      inc(nStr);
      nPos := 1;
      inc(i);
    end;
    inc(i);
  end;
.....

.....
  while i < Value do
  begin
    .....
      inc(nStr);
      nPos := 0;
    end;
    inc(i);
  end;
.....

#pas
  i := length(FProgram);
  SetLength(FProgram,i+length(str)+1);
  Move(str[1], FProgram[i], length(str)+1);

#pas
          CmdDiv:   {$ifdef F_P}if x2=0 then begin Err:=2;Exit;end else{$endif}
                    Fsp^ := Fsp^ / x2;

#pas
        TRY
          if cnt > 0 then begin
            dtReal(Fd, FSP^);
            dec(cnt);
            while cnt > 0 do begin 
              dec(FSP); // Не правда !!! Сначала использование, а потом DEC
              dtReal(FItem, FSP^);
              AddMTData(@FItem, @Fd, tmp);
              FreeData(@Fd);
              Fd := FItem;
              dec(cnt);
            end;
          end;
          FItem := Fd;
          _ReadData(FItem,self.X[i]);
        FINALLY
          FreeData(@Fd);
        END;
        if _IsNULL(FItem) then begin Err := 1; exit; end;
       // Сначала INC (и где он ???), а потом запись
        FSP^ := ToReal(FItem);

#pas
        cnt := PInteger(FPC)^;
        inc(FPC, sizeof(FPC)); // чего-чего ???

#pas
          dtString(FItem, s);
          if not _IsNull(Fd) then begin
            AddMTData(@FItem, @Fd, tmp);
          end;

#pas
      i := Str2Int(Token)-1;
      if i=-1 then begin
        WriteProgB(CmdRead);
        WriteProgB(255);
      end else if i<FDataCount then begin

#pas
    i := Str2Int(Token)-1;
    if i<FDataCount then begin

#pas
dtReal(Fd, FSP^);
dec(cnt);

#pas
procedure THIMathParseEx.Level5(var res:TResult);   // Логические операции
var op: char;
    r: TResult; //промежуточный результат.
    allConst: boolean; //целиком ли выражение - константа
begin
  r.isConst := False;
  Level6(res); {$ifdef F_P} if Err>=0 then exit; {$endif}
  if res.isConst then begin
    r := res;
    allConst := True;
  end else begin
    allConst := False;
  end;
  while (Token = 'and')or(Token = 'or')or(Token = 'xor')do begin
    op := Token[1];
    GetToken; Level6(res); {$ifdef F_P} if Err>=0 then exit; {$endif}
    if res.isConst then begin
      if not r.isConst then begin
        r := res;
        case op of
          'a': WriteProgB(CmdAnd);
          'o': WriteProgB(CmdOr);
          'x': WriteProgB(CmdXor);
        end;
      end else begin
        case op of
          'a': r.value^ := (r.value^ <> 0) and (res.value^ <> 0);
          'o': r.value^ := (r.value^ <> 0) or (res.value^ <> 0);
          'x': r.value^ := (r.value^ <> 0) xor (res.value^ <> 0);
        end;
        SetLength(FProgram, Length(FProgram) - sizeof(Real) - 1);
      end;
    end else begin
      allConst := False;
      case op of
        'a': WriteProgB(CmdAnd);
        'o': WriteProgB(CmdOr);
        'x': WriteProgB(CmdXor);
      end;
    end;
  end;
  res := r;
  r.isConst := allConst;
end;

#pas
            dtReal(Fd, FSP^);
            dec(cnt);  /// Вот тут я сбойнул !!! Думал, что это dec(FSP)
            while cnt > 0 do begin
              dec(FSP);
              dtReal(FItem, FSP^);

#pas
      CmdUNFunc: // name()
      begin
        s := ReadProgS;
        cnt := PInteger(FPC)^;
        inc(FPC, sizeof(integer));
        dtString(FItem, s);
        _ReadData(FItem,self.X[_prop_ExtNames-1]);
        if _IsNULL(FItem) then begin Err := 1; exit; end;
        FSP^ := ToReal(FItem);
      end;

#pas
procedure THIMathParseEx.Level5(var res:TResult);   // Логические операции
var op: char;
    rs: TResult; //промежуточный результат.
begin
  Level6(res); {$ifdef F_P} if Err>=0 then exit; {$endif}
  while (Token = 'and')or(Token = 'or')or(Token = 'xor')do begin
    op := Token[1];
    GetToken; Level6(rs); {$ifdef F_P} if Err>=0 then exit; {$endif}
    if isConst(res) and isConst(rs) then begin
      case op of
        'a': cstVal(res)^ := (cstVal(res)^<>0) and (cstVal(rs)^<>0);
        'o': cstVal(res)^ := (cstVal(res)^<>0) or  (cstVal(rs)^<>0);
        'x': cstVal(res)^ := (cstVal(res)^<>0) xor (cstVal(rs)^<>0);
      end;
      delConst(rs); // Удаляем из программы константу, на которую указывает rs
    end else begin
      setVar(res); // Обзываем res - Переменной
      case op of
        'a': WriteProgB(CmdAnd);
        'o': WriteProgB(CmdOr);
        'x': WriteProgB(CmdXor);
      end;
    end;
    // Здесь, res - уже должен быть в полной готовности
  end;
end;

#pas
procedure THIMathParseEx.Level5(var res:TResult);   // Логические операции
var op: char;
    rs: TResult; //промежуточный результат.
begin
  Level6(res); {$ifdef F_P} if Err>=0 then exit; {$endif}
  while (Token = 'and')or(Token = 'or')or(Token = 'xor')do begin
    op := Token[1];
    GetToken; Level6(rs); {$ifdef F_P} if Err>=0 then exit; {$endif}
    if isConst(res) and isConst(rs) then begin
      case op of
        'a': cstVal(res)^ := (cstVal(res)^<>0) and (cstVal(rs)^<>0);
        'o': cstVal(res)^ := (cstVal(res)^<>0) or  (cstVal(rs)^<>0);
        'x': cstVal(res)^ := (cstVal(res)^<>0) xor (cstVal(rs)^<>0);
      end;
      delConst(rs); // Удаляем из программы константу, на которую указывает rs
    end else
    if isConst(res) and (not isConst(rs)) then begin
      setVar(res); // Обзываем res - Переменной
      case op of
        'a': begin if cstVal(res)^<>0 then delConst(res)
          else WriteProgB(CmdAnd); // (false and X) ???
        end;
        'o': begin if cstVal(res)^= 0 then delConst(res)
          else WriteProgB(CmdOr);  // (true or X) ???
        end;
        'x': begin delConst(res);
          if cstVal(res)^<>0 then WriteProgB(CmdNot);
        end;
      end;
    end else
    if (not isConst(res)) and isConst(rs) then begin
      case op of
        'a': begin if cstVal(rs)^<>0 then delConst(rs)
          else WriteProgB(CmdAnd); // (X and false) ???
        end;
        'o': begin if cstVal(rs)^= 0 then delConst(rs)
          else WriteProgB(CmdOr);  // (X or true) ???
        end;
        'x': begin delConst(rs);
          if cstVal(rs)^<>0 then WriteProgB(CmdNot);
        end;
      end;
    end else begin
      case op of
        'a': WriteProgB(CmdAnd);
        'o': WriteProgB(CmdOr);
        'x': WriteProgB(CmdXor);
      end;
    end;
    // Здесь, res - уже должен быть в полной готовности
  end;
end;