program Project20;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

type enum = (e1, e2, e3);

function name( e: enum ): char;
begin
  case e of
    e1: Result := 'A';
    e2: Result := 'B';
    e3: Result := 'C';
  end;
end;
// [DCC Warning] Project20.dpr(19): W1035 Return value of function 'name' might be undefined

var e: enum;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    for e := e1 to e3
        do Writeln(name(e));

    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.