uses
  TypInfo;
 
type
  Language = (Delphi, Lazarus, CBuilder);
 
procedure TForm1.Button1Click(Sender: TObject);
var
  aLanguage: Language;
begin
  aLanguage := Language(GetEnumValue(TypeInfo(Language), 'Delphi'));
end;