Bisect

procedure Bisect(

  Func: TFunc;

  var X: Float;

  var Y: Float;

  MaxIter: Integer;

  Tol: Float;

  var F: Float

);