OOP Delphi

Title: Get events of component
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;