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;

É possível obter o índice de propriedade de classe? Por exemplo, algo como

  I := IndexOfProperty(TMyClass.P2);