Тангенс в градусах Delphi 7

[realstar]

Здравствуйте!
В курсовой работе на тему "инженерный калькулятор" появилась данная проблема.
Не получается написать код для того,чтобы посчитать значение тангенса в градусах.Аналогичная функция для синуса и косинуса прекрасно работает,а для тангенса -нет.Выдает ошибку.

В чем проблема,может чего не так написал или не дописал?

var
 Form1: TForm1;

implementation      

//////////////////////////////////////////////
procedure sinus(a:real; var r:real);  // нахождение синуса в градусах
begin
if ((a=0) or (a=180)) then r:=0 else
  if a=90 then r:=1 else
    if a=270 then r:=-1 else
      r:=sin(a*Pi/180);
end;

procedure cosinus(a:real; var r:real); //нахождение косинусав градусах
begin
if ((a=0) or (a=360)) then r:=1 else
  if ((a=90) or (a=270)) then r:=0 else
    if a=180 then r:=-1 else
      r:=cos(a*Pi/180);
end;

procedure tan(a:real; var r:real);  // нахождение тангенса в градусах
begin
if ((a=0) or (a=180)) then r:=0 else
  if a=45 then r:=1 else
      r:=tan(a*Pi/180);
end;

[Прик]

Наименование "своей" процедуры не должно совпадать с тем, которое уже объявлено в модуле Math (здесь "tan" и в Math тоже "Tan").

[realstar]

Спасибо большое!Помогло!