type
  TMyClass = class
  ...
  public
    ...
    property P1: Integer Index 1 read GetInteger write SetInteger;
    property P2: Integer Index 2 read GetInteger write SetInteger;
    property P3: Integer Index 3 read GetInteger write SetInteger;
    ...
  end;

Czy można uzyskać indeks własności klasy? Na przykład coś takiego

  I := IndexOfProperty(TMyClass.P2);