[magsys]

Существует наследник класса TList

TMyList = class(TList)
private
FValue1: string;
FValue2: Integer;
property
property Value1: string read FValue1 write FValue1;
property Value2: Integer read FValue2 write FValue2;
end;

Var
FMyList: TMyList
V: Variant;

Существует потребность написать универсальную функцию, которая бы возвращала значение свойства через параметр, типа такого

function MyListGetValue(Param: string): Variant;
begin
..... {Как реализовать}
end;

Перечисление через IF свойств не подходит, т.к. класс периодически расширяется а механизм обращений должен быть постоянным

Обращение к функции должно быть примерно таким:

V := MyListGetValue('VALUE1');
V := MyListGetValue('VALUE2');

Как реализовать механизм обращения к свойствам класса.