[NumLock]

Код:

type
  tname = 'a'..'c';

var
  a: array [tname] of Integer = (11, 22, 33);

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Char;
begin
  for i:=Low(tname) to High(tname) do
    Memo1.Lines.Add(i+' = '+IntToStr(a[i]));
end;