TOnRead

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

Unit
AGWAPI