VB -> Delphi Problem

[CReber]

CalcString,Username: String;
QuerSum:longint;
i:integer;

Code:

    For I = 1 To Len(CalcString)
        If Val(Mid$(CalcString, I, 1)) * I = 0 Then
            Quersum = Quersum + 4
        Else
            Quersum = Quersum + ((Val(Mid$(CalcString, I, 1)) * I) / 2)
        End If
    Next I

Ich hab das folgendermassen auf Delphi übersetzt

Delphi-Quellcode:

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

Also am Anfang funktioniert das ja auch aber irgendwie werden die Werte der Quersumme dann unterschiedlich...