class procedure Polynomal(n: integer; m: integer; x: float; y: float; xySquared: float; const res: PComplex);

This is Polynomal, a member of class Zernike.