good places to use SinCos()
<packages\fcl-pdf\src\fppdf.pp>
< 4106>: a1 := Cos(rad); b1 := -Sin(rad);
< 4107>: c1 := Sin(rad); d1 := a1;
< 4258>: a1 := Cos(rad); b1 := -Sin(rad);
< 4259>: c1 := Sin(rad); d1 := a1;
<packages\numlib\src\roo.pas>
< 111>: pz^[k].Init(r*cos(w), r*sin(w));
< 130>: pz^[k].Init(r*cos(w), r*sin(w));
< 147>: pz^[j+1].Init(r*cos(w), r*sin(w))
<packages\numlib\src\spe.pas>
< 399>: cx:=cos(g)*y; sx:=-sin(g)*y*8/t;
< 477>: cx:=cos(g)*y; sx:=-sin(g)*y*8/t;
< 742>: cx:=cos(g)*y*8/x; sx:=sin(g)*y;
< 828>: cx:=cos(g)*y*8/x; sx:=sin(g)*y;
<packages\rtl-extra\src\inc\ucomplex.pp>
cexp.re := expz * cos(z.im);
cexp.im := expz * sin(z.im);
...
ccos.re := cos(z.re) * cosh(z.im);
ccos.im := - sin(z.re) * sinh(z.im);
...
cch.re := cosh(z.re) * cos(z.im);
cch.im := sinh(z.re) * sin(z.im);
...
csh.re := sinh(z.re) * cos(z.im);
csh.im := cosh(z.re) * sin(z.im);