VB -> Delphi Problem

[sakura]

StrToInt und Ord sind verschiedener Natur (siehe OH).

Code:

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

......