VB -> Delphi Problem

[neolithos]

Delphi-Quellcode:

for i := 0 to Length(CalcString) - 1 do
    begin
      iTmp := StrToInt(CalcString[i]);
      if iTmp * i = 0 Then
         Quersum := Quersum + 4
      else
         Quersum = Quersum + (iTmp * I) div 2;
    end;

Offen und beten wir mal das es stimmt.