delphi создать ползунок(scrollbar) на графике

[globalfine]

есть программа по вычислению интеграла с графиком ф-ции нужно дополнить график ползунком scrollbar чтобы было перемещение по х и у,и добавить погрешность что бы вводилась как это осуществить?

begin

Button2.Enabled:=true;

n:=StrToInt(Edit1.Text); //присвоение значений
a:=StrToFloat(Edit2.Text);
b:=StrToFloat(Edit3.Text);
sum:=0;
if (a>0)AND(a<b) then //условие что а должно быть больше 0 поскольку у нас корень, и мельше б поскольку б-крайняе верхняя граница
begin
h:=(b-a)/round(n);
//n:=round(int(n1)); //нахождение количества разбиений
StringGrid1.RowCount:=n+2;
for i:=1 to n do
begin
StringGrid1.Cols[1].Clear; //обнуление хранилища координат
StringGrid1.Cols[0].Clear;
end;
//сумма площадей на которые был разбит общий интеграл
for i:=1 to (n-1) do //здесь в масиве исполняется вычисление интеграла
begin
x:=a+i*h;
f0:=sin(12*x);
f1:=cos(6*x);
k:=exp(ln(x)/3); //нахождение корня кубического
f:=k*(6*f0+12*f1);
StringGrid1.Cells[0,i+1]:=FloatToStrF(x,ffFixed,4,3); //запись координат для постоения графика
StringGrid1.Cells[1,i+1]:=FloatToStrF(f,ffFixed,4,3);
sum:=sum+f;
end;
fa:=exp(ln(a)/3)*( 6*sin(12*a)+12*cos(6*a));
StringGrid1.Cells[0, 1]:=FloatToStrF(a,ffFixed,4,3); //запись последней координаты для постоения графика
StringGrid1.Cells[1, 1]:=FloatToStrF(fa,ffFixed,4,3);
fb:=exp(ln(b)/3)*( 6*sin(12*b)+12*cos(6*b));
StringGrid1.Cells[0,n+1]:=FloatToStrF(b,ffFixed,4,3); //запись последней координаты для постоения графика
StringGrid1.Cells[1,n+1]:=FloatToStrF(fb,ffFixed,4,3);
sft:=h*((fa+fb)/2+sum); //конечное вычисление интеграла и вывод его на форму
Label5.Caption:=FloatToStrF(h,ffFix ed,4,3);
Label6.Caption:=FloatToStrF(sft,ffF ixed,4,3);
end
else //если условие не выполнено, на экран выводится определённое сообщение
begin
ShowMessage('Внимание! вводите значение "a<0 или a>b"');
Edit2.Clear;
Edit2.SetFocus;
end;
BitBtn1.Click;
Series1.Cursor := crCross;
end;