TChart и exp()

function func1(i:extended):extended;
begin
  func1:=a*i*i+b*i+c;
end;
function func2(i:extended):extended;
begin
  func2:=a*exp(b*i);
end;
procedure TForm1.but11Click(Sender: TObject);
begin
  GroupBox1.Visible:=true;
  lab3.Visible:=true;
  ed3.Visible:=true;
  k:=1; //первый график
end;

procedure TForm1.but12Click(Sender: TObject);
begin
  GroupBox1.Visible:=true;
  lab3.Visible:=false;
  ed3.Visible:=false;
  k:=2; //второй график
end;
procedure TForm1.btOKClick(Sender: TObject);
var i:integer;
begin
  Form2.Series1.Clear;
  try
    a:=StrToFloat(ed1.Text);
    b:=StrToFloat(ed2.Text);
    c:=StrToFloat(ed3.Text);
    Form2.visible:=true;   //будем там рисовать график
    if (k=1) then
      for i:=-100 to 100 do
        Form2.Series1.AddXY(i,func1(i))
    else
      for i:=0 to 100 do
        Form2.Series1.AddXY(i,func2(i)+10);
  except
    Application.MessageBox('Правильно вводите данные!!!','Ошибка');
  end;
end;