I search for some trick to realize something like this:

I search for some trick to realize something like this:

ISome = interface
function GetValueVar() : Variant;
procedure SetValueVar(aValue : Variant);
function GetValue(aIndex : Integer) : Variant;
procedure SetValue(aIndex : Integer; aValue : Variant);

// two props with the same name
property Value[aIndex : Integer] : Variant read GetValue write SetValue;
property Value : Variant read GetValueVar write SetValueVar;
end;


var
x : ISome;
begin
x.Value := 0;
// or if I needed in other case
x.Value[0] := 'string';