title: Delphi XE2 64-bit extremely slow runtime performance on string routines
body: <p>I'm porting some applications from 32 to 64 bits delphi, which do a lot of text processing, and noticed an extreme change in processing speed. Did some tests with a few procedures, for example, this takes already more than 200% the time in 64bits than compiling to 32 (2000+ ms compared to ~900)</p>
  
  <p>Is this normal?</p>
  
  <pre><code>function IsStrANumber(const S: AnsiString): Boolean;
  var P: PAnsiChar;
  begin
    Result := False;
    P := PAnsiChar(S);
    while P^ &lt;&gt; #0 do begin
      if not (P^ in ['0'..'9']) then Exit;
      Inc(P);
    end;
    Result := True;
  end;
  
  procedure TForm11.Button1Click(Sender: TObject);
  Const x = '1234567890';
  Var a,y,z: Integer;
  begin
    z := GetTickCount;
    for a := 1 to 99999999 do begin
     if IsStrANumber(x) then y := 0;//StrToInt(x);
    end;
    Caption := IntToStr(GetTickCount-z);
  end;
  </code></pre>