uses
  TypInfo;
 
type
  Language = (Delphi, Lazarus, CBuilder);
 
procedure TForm1.Button1Click(Sender: TObject);
var
  StrLanguage: String;
begin
  StrLanguage := GetEnumName(TypeInfo(Language), Integer(Delphi));
  ShowMessage(StrLanguage);
end;