[Страдалецъ]

Тогда может вот так вас устроит:

Код:

Uses TypInfo;

procedure TForm7.FormCreate(Sender: TObject);
Var
  ATypeInfo: PTypeInfo;
  ATypeData: PTypeData;
  I, N: Integer;
  List: PPropList;
begin
  ATypeInfo := TypeInfo(TForm7);
  ATypeData := GetTypeData(ATypeInfo);
  N := ATypeData.PropCount;
  GetMem(List, SizeOf(PPropInfo) * N);
  GetPropInfos(ClassInfo, List);
  for i := 0 to N - 1
  do ListBox1.Items.Add(List[i].Name);
end;