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;

Можно ли получить индекс свойства класса? Например, что-то вроде

  I := IndexOfProperty(TMyClass.P2);