Use for solving of this question GetPropList function. Don't forget to add TypInfo in the uses chapter.
uses TypInfo; ... procedure TForm1.Button1Click(Sender: TObject); var ListProp: PPropList; TD: PTypeData; Num, i: Integer; begin GetMem(ListProp, SizeOf(PPropInfo)*TD.PropCount); Num:=GetPropList( Sender.ClassInfo, [tkMethod], ListProp); for i:=0 to Num-1 do Memo1.Lines.Add(ListProp[i]^.Name); end;