procedure TForm1.Button2Click(Sender: TObject);
begin
 Get(Button1,TypeInfo(TNotifyEvent));
end;

procedure TForm1.Get(AObject: TObject; P: PTypeInfo);
var PropList: PPropList;
   i: integer;
begin
 PropList := AllocMem(SizeOf(PropList^));
 i := 0;
 try
  GetPropList(AObject.ClassInfo, [tkMethod], PropList);
  while (PropList^[i] <> Nil) and (i < High(PropList^)) do begin
     if P = PropList^[i].PropType^ then
      Memo1.Lines.Add(PropList^[i].Name + ': ' + PropList^[i].PropType^.Name);
    Inc(i);
  end;
 finally
  FreeMem(PropList);
 end;
end;