TMethod.Data почему-то не того типа

[Jin X]

Сделал вот такую прослойку, чтобы вызывать обработчики простых чужих событий из других событий.

function TFormMain.TryCallEvent(Obj: TObject; Event: TNotifyEvent): Boolean;
begin
  Result := Assigned(Event);
  if Result then
    Event(Obj);
end;

Вызываю (из-под CheckBoxClick, к примеру): TryCallEvent(ComboList, ComboList.OnChange);
Всё ок.

Хочу сократить до такого:

function TFormMain.TryCallEvent(Event: TNotifyEvent): Boolean;
begin
  Result := Assigned(Event);
  if Result then
    Event(TObject(TMethod(Event).Data));
end;

А вот теперь TObject(TMethod(Event).Data) почему-то имеет тип не контрола, а TMainForm.
Что за ерунда? ЧЯДНТ?

[Jin X]

Короче, значение в OnChange является методом формы, поэтому так