Find the nearest maximum. The initial position in seconds is given with pos and the final position is returned with the Pos parameter.

procedure NearestMaximum(var Pos: Double);