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

procedure NearestMinimum(var Pos: Double);