TOnUnProto

type TOnUnProto = procedure(dwPort: Integer; szFrom, szTo: String; bPid: Integer; szData: String) of object;

Unit
AGWAPI