(Resolvido) Erro no calculo de Seno e Coseno.

[Limas]

Eu fiz uma rotina para calcular o Seno com resultado em Radiano mas o sistema

retorna o seguinte erro:[Error] UCalculo.pas: Not enough actual parameters

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;

Se o pessoal que entende de Seno e Coseno puder me ajudar,

Desde já eu agradeço.

Valdir

[Jhonas]

maneira correta de usar

uses Math;

procedure TForm1.Button1Click(Sender: TObject);
var
  float : single;
begin
  // The Sine of 30 degrees = 0.5
  float := Sin(DegToRad(30));
  ShowMessage('Seno de 30 graus = '+FloatToStr(float));
end;

abraço

[Limas]

maneira correta de usar

uses Math;

procedure TForm1.Button1Click(Sender: TObject);
var
  float : single;
begin
  // The Sine of 30 degrees = 0.5
  float := Sin(DegToRad(30));
  ShowMessage('Seno de 30 graus = '+FloatToStr(float));
end;

abraço

Obrigado pela Resposta, agora funcionou.

Abraço.

Valdir