PTypeInfo обратно в тип

[Adult_Master]

Чот туплю уже под утро ....

имеем тип:

 TMyType  = ( ptWinOnly, ptWinAndCredit );

 var
  MyVar: TMyType;

вызываем функцию:

 TrySetParam( 'MyParam', TypeInfo( TMyType ), @MyVar );

А вот её описание:

function TrySetParam( const ParamID: string; Enum: PTypeInfo;
  Param: Pointer): Boolean;
var
 Value: Byte;
begin
 ....
 В процессе работы получаем допустим
 Value := 1; //ptWinAndCredit 
 ....

 Param^ :=  Value //???? 
 //И вот как тут Param присвоить результат приведённый к TMyType ???
end;

Функция должна быть универсальной, и принимать на вход разные типы ..., т.е. надо внутри из Enum: PTypeInfo извлечь TMyType.

[Black Fregat]

На самом деле PTypeInfo тут совершенно без надобности.
По сути своей переменная Enum хранит целое значение (байт).
И его можно изменить напрямую при помощи нехитрого хакерского трюка:

function TrySetParam( const ParamID: string; Enum: PTypeInfo;
  Param: Pointer): Boolean;
var
 Value: Byte;
 Hack: ^Byte; 
begin
 ....
 В процессе работы получаем допустим
 Value := 1; //ptWinAndCredit 
 ....
 Hack := Param;
 Hack^ :=  Value;
 ....
end;

Добавлено после пары экспериментов

Оказывается, всё не так просто..
Enum может иметь и более 255 элементов, тогда он тянет на 2 байта.
Значит, нужно искать, где в TypeInfo лежит размер поля