TOnBeacon

type TOnBeacon = procedure(dwPort: Integer; szFrom, szTo, szVia, szMessage: String) of object;

Unit
AGWAPI