График тангенса в TCHART

     Xmax:=StrToFloat(EdXmax.Text);
    Ymin:=StrToFloat(EdYmin.Text);
    Ymax:=StrToFloat(EdYmax.Text);
    Hx:=StrToFloat(EdHx.Text);
    Hy:=StrToFloat(EdHy.Text);
    if (Xmin<Xmax) and (Ymin<Ymax) then
     begin
      FuncGr.BottomAxis.Automatic:=False;
      FuncGr.BottomAxis.Minimum:=Xmin;   // Установка левой границы нижней оси
      FuncGr.BottomAxis.Maximum:=Xmax; // Установка правой границы нижней оси
      FuncGr.LeftAxis.Minimum:=Ymin;        // Установка нижней границы левой оси
      FuncGr.LeftAxis.Maximum:=Ymax;      // Установка верхней границы левой оси
      FuncGr.BottomAxis.Increment:=Hx;     // Установка шага разметки по нижней оси
      FuncGr.LeftAxis.Increment:=Hy;          // Установка шага разметки по левой оси
     end else ShowMessage('Минимальные значения не могут быть больше максимальных!');
   end else ShowMessage('Не все поля заполнены!');

if abs(cos(x))>0.01 then series1.AddXY(x,sin(x)/cos(x),'',clRed)
else series1.AddNullXY(x,sin(x)/cos(x),'');//делаем разрывы в точках где cos(x) близок к 0.