TCallbackExEvent

type TCallbackExEvent = procedure(

  ASender: TObject;

  const AsslSocket: PSSL;

  const AWhere: TIdC_INT;

  const Aret: TIdC_INT;

  const AType: string;

  const AMsg: string

) of object;