Нахождение тангенса угла.

[mosk3]

Здравствуйте.
Мне нужно написать программу на дельфи нахождение тангенса угла. Я знаю что если добавить math в uses то можно использовать функцию tan. Но эта функция не корректна, например: тангенса углов -90,90, 270 и т.д. градусов не существует а тангенс углов 0, 180
,360 равен нулю, так вот функция tan это не воспринимает она просто выдает неправильный численный ответ. Деление sin на cos тоже не помогает. Та же самая ошибка. Я смог написать программу которая считает тангенс углов 0, 180, 270 как 0, а вот с радианами не получается. То есть мне нужно чтобы программа считала и в градусах и в радианах. Вот код того как она считает углы в градусах, нужно для радиан.

    vsp:=90;
    if form1.SpeedButton1.Down=true      //   4,7123889
      then //для градусов, a - угол
        begin
          while (key1=false)or (key2=false) do
            begin
              if vsp=a
                then
                  begin
                    result:='error';
                    exit;
                  end
                else
                  if vsp>a
                    then
                      begin
                        vsp:=vsp-180;
                        key1:=true;
                      end
                    else
                      begin
                        vsp:=vsp+180;
                        key2:=true;
                      end;