TPositionEvent = procedure ( Sender: TObject; Position: Longint ) of
object;
property OnPosition: TPositionEvent;
OnPosition occurs when the write position reaches an offset specified in one of the positions defined through the SetNotificationPositions method.