Ord liefert bei AnsiString falsche Werte (63 / $3F)

[moelski]

Moin !

Kann mir das jemand erklären? (wie gesagt Delphi 2010)

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  var data : AnsiString;
      x, y : Byte;
begin
  try
    for x := 0 to 15 do begin
      for y := 0 to 15 do begin
        data := Chr(x*16 + y);
        Write(Format('%3d', [Ord(Data[1])])); Write(' ');
      end;
      Writeln;
    end;
    Readln;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.