Einem Array A-Z u. a-z u. 0-9 zuweisen!

[Kidix]

habs jetzt so gemacht, zahlen werden aber nicht richtig angezeigt...

Was mache ich falsch?

Delphi-Quellcode:

var
alpha: array [0..58] of Char;
x: integer;
begin
for x := 0 to 9 do
begin
alpha[x] := char(x);
end;
for x:= 0 to 24 do
begin
   alpha[x + 10] := chr(x+65);
end;
for x:= 0 to 24 do
begin
   alpha[x + 34] := chr(x+97);
end;

Kidix