1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm2.Button2Click(Sender: TObject);
var
  x,y: Word;
  pl: PPropList;
  m:TMethod;
begin
  m.Code := nil;
  m.Data := nil;
  y := GetPropList(Self, pl);
  for x := 0 to y - 1 do
  begin
    if Copy(pl[x].Name, 1, 2) <> 'On' then Continue;
    if GetMethodProp(Self, pl[x].Name).Code <> nil then
      begin
      Memo1.Lines.Add(Self.Name + ' - ' + pl[x].Name);
      SetMethodProp(Self, pl[x].Name,m);
      end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Procedure RemoveEvents(O:TObject);
var
  x,y: Word;
  pl: PPropList;
  m:TMethod;
begin
  m.Code := nil;
  m.Data := nil;
  y := GetPropList(o, pl);
  for x := 0 to y - 1 do
  begin
    if Copy(pl[x].Name, 1, 2) <> 'On' then Continue;
    if GetMethodProp(o, pl[x].Name).Code <> nil then
      begin
      SetMethodProp(o, pl[x].Name,m);
      end;
  end;
end;