[Alegun]

Код:

uses TypInfo;
 type
  TmyBred = (mbNone, mbHelp, mbNoReplay);
type
 TmyBred1 = (mbNone1, mbHelp1, mbNoReplay1);

function GetStringEnum(p: ShortString; Index: integer) : string;
var
 pt: PTypeInfo;
begin
 if p = 'TmyBred'  then pt:= TypeInfo(TmyBred);
 if p = 'TmyBred1' then pt:= TypeInfo(TmyBred1);
 Result := GetEnumName(pt, Index);
end;