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