Source position: simpleipc.pp line 143
type TMessageQueueEvent = procedure(
Sender: TObject;
Msg: TIPCServerMsg
) of object;