if one object is store in memory, and has to be reinitialize for each club, hence the meter stutter.
For example what does this mean:
type
TRootFind = class(TObject)
private
{ Private fields of TRootFind }
{ Private methods of TRootFind }
{ Method to set variable and property values and create objects }
procedure AutoInitialize;
{ Method to free any objects created by AutoInitialize }
procedure AutoDestroy;
procedure laguer(VAR a: ComplexArrayMp1;m: integer;VAR x: Complex;eps: real;polish: boolean);
procedure zroots(VAR a: ComplexArrayMp1;m: integer;VAR roots: ComplexArrayMp1;polish: boolean);
protected
{ Protected fields of TRootFind }
public
{ Public fields and properties of TRootFind }
{ Public methods of TRootFind }
constructor Create;
destructor Destroy;
function Execute : Boolean;
procedure GenPoly(coff :array of extended;npts:integer;var roots: array of extended);
function ModBisectionmth(fx:froot;low,upp,fstep,feq:extended):extended;
function MullerMth(fx:froot;low,upp,feq:extended):extended;
function besectionmth(fxy:froot;low,upp,feq:extended):extended;
procedure cubiceqn(a,b,c,d:extended;var r1,r2,r3:extended);
procedure quadratic(a,b,c:extended;var r1,r2:extended);
procedure quarticEqn(a,b,c,d,e:extended;var r1,r2,r3,r4:extended);
published
{ Published properties of TRootFind }
end;