TDispatchInfo = record
  Instance: TObject;
  Kind: TDispatchKind;
  case TDispatchKind of
    dkMethod: (MethodInfo: PMethodInfoHeader;);
    dkProperty: (PropInfo: PPropInfo;);
    dkSubComponent: (Index: Integer;);
end;

struct TDispatchInfo {
  TObject * Instance;
  TDispatchKind Kind;
  PMethodInfoHeader MethodInfo;
  PPropInfo PropInfo;
  int Index;
};