Source position: ugoldsrc.pas line 12
procedure GoldSearch(
Func: TFunc;
A: Float;
B: Float;
MaxIter: Integer;
Tol: Float;
var Xmin: Float;
var Ymin: Float
);