Bug i Delphi i VAL funktionen?

Jeg har nedenstående kode til dele en klassebetegnelse i klassetrin og -bogstav.

procedure TForm1.Button1Click(Sender: TObject);
var
  i,code:Integer;
begin
  val(EDit1.Text,i,code);
  label1.caption:=inttostr(i);  //Klassetrin
  label2.Caption:=inttostr(code);//Fejlkode
  if code>0 then
    label6.caption:= Edit1.text[code] //Klassebogstav
  else
    label6.caption:='';
end;


2a giver klassetrin 2 fejlkode 1
a giver klassetrin 0 og fejlkode 1
x (og kun det bogstav) giver klassetrin 0 og fejlkode 3

Er der en bug i denne funktion (jeg bruger Delphi 7) eller har jeg selv lavet en fejl?