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;

¿Es posible obtener el índice de propiedad de clase? Por ejemplo, algo como

  I := IndexOfProperty(TMyClass.P2);