Source position: usecant.pas line 12
procedure Secant(
Func: TFunc;
var X: Float;
var Y: Float;
MaxIter: Integer;
Tol: Float;
var F: Float
);