Fórum Erro no cálculo do Seno, Coseno #390117

Bom dia a todos,   Eu criei uma rotina para calcular o Seno em radiano mas o sistema da erro e não roda.     Function TFCALCULO.DegToRad( const Degrees : Extended ) : Extended;
var
  float : single;
begin
  float := (Sin(DegToRad(30)));
  ShowMessage('Sine off 30 degrees = '+FloatToStr(float));
end; procedure TFCALCULO.BitBtn5Click(Sender: TObject);
begin
   DegToRad; 
end;     Retorna o seguinte erro: [Error] UCalculo.pas: Not enough actual parameters       Aos que conhecem a forma de calcular Seno e Coseno se puderem me ajudar desde já eu agradeço.     Att.   Vadlr Lima