Arrays addieren

[DeddyH]

Kleine Denksportaufgabe für den TE:

Delphi-Quellcode:

procedure TFormBla.ButtonWuppdiClick(Sender: TObject);
const
  Chars: array[1..4] of Char = ('1', '2', '3', '4');
var
  Zahl: integer;
begin
  Zahl := StrToInt(Chars[1] + Chars[2] + Chars[3] + Chars[4]);
  ShowMessage(IntToStr(Zahl));
  Zahl := StrToInt(Chars[1]) + StrToInt(Chars[2]) + StrToInt(Chars[3]) + StrToInt(Chars[4]);
  ShowMessage(IntToStr(Zahl));
end;

Preisfrage: woran liegt das, dass die erste Zahl 1234 und die zweite 10 ist?