type
    TMyClass = class
    private
        function GetFieldByName(const Name: string): Variant;
        function GetFieldByIndex(Index: Integer): Variant;

    public
        property Values[const Name: string]: Variant read GetFieldByName; default;
        property Values[Index: Integer]: Variant read GetFieldByIndex; default;
    end;