Source position: IdMessage.pas line 505
type TIdMessageEvent = procedure(
ASender: TComponent;
var AMsg: TIdMessage
) of object;