построение графика в делфи

[electrovolk]

здраствуйе
я роботаю над курсовой
на тему розвязать уровнение cos(x)-(4*x)+1=0
я написал прогу на ее розвязание
теперь нада строить график
но я не знаю как его создать
прошу совета
кому не в напряг-отпишитесь



сама прога(код_)
Function y1(x:real):real;
begin
y1:=cos(x)-(4*x)+1;
end;

Function y2(x:real):real;
begin
y2:=-sin(x)-4;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
begin
x2:=StrToFloat(Edit1.Text);
d:=0.005;

while (abs(x2-x1)>d) do
begin
x1:=x2;
x2:=x1-(y1(x1)/y2(x2));
end;
xr1:=x2;
Label1.Caption:='метод касательных ='+FloatToStr(xr1);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
a:=StrToFloat(Edit2.Text);
b:=StrToFloat(Edit3.Text);
d:=0.005;

while ((abs(a-b)>d)and(y1(c)<>0)) do
begin
c:=a+abs(y1(a)/(y1(a)-y1(b)))*(b-a);
if (y1(c)*y1(a)<0) then
b:=c
else
a:=c;
end;
xr2:=c;
Label6.Caption:='метод хорд ='+FloatToStr(xr2);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Label1.Caption:='';
Label6.Caption:='';
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';

end;

end.