Articles

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;