This function compiled but the third parameter was zero. Also SinCos should be in the Math unit right? procedure SinCos (angle: TScalar; var sinus: TScalar var cosinus: TScalar); begin sinus := sin(angle); cosinus := cos(angle); end; Regards, Ryan Joseph