Source position: tiBaseMediator.pas line 25
type TtiObjectToGUIEvent = procedure(
Sender: TtiMediatorView;
Src: TtiObject;
Dest: TComponent;
var Handled: Boolean
) of object;