文字コードと列挙型 - fisheater @ ウィキ

文字 cを列挙型で定義するときは下のように定義

type TChrEnum = ( ce0 = ord('0'), ce1 = ord('1') ... );

列挙型から文字を取り出すときは、以下のように記述

var
  c1,c2 : char
...
begin
...
  c1 := chr( integer(ce0) );
  c2 := char( ce1 );
end;