lineare gleichung zeichnen

[mortality]

hallo nochmal,
da mir keiner auf mein vorherigen topic antwortet....werde ich das letzte mal was einfaches fragen...was bei mir irgendwie net funktionieren will

und zwar die ableitung der funktion ax²+bx+c soll graphisch dargestellt werden, aber wird net korrekt eingestellt

Delphi-Quellcode:

bereich:= Round(StrToInt(intervall.Text)/2);

...

procedure TForm1.AbleitungClick(Sender: TObject);
var f1,f2,x1,x2:integer;
begin
new_b:=a*2;
new_c:=b;
abl_ausg.Visible:=true;
if new_c=0 then
  Abl_ausg.Caption:='y=f(x)='+floattostr(new_b)+'x'
   else
     Abl_ausg.Caption:='y=f(x)='+floattostr(new_b)+'x'+'+'+floattostr(new_c);
if a=0  then
 begin
  Abl_ausg.Caption:='y=f(x)='+floattostr(new_c)
 end;
 graphbox.Canvas.pen.color :=clRed;  //Ändert die Farbe des Stift-Objekts Pen
 graphbox.Canvas.pen.width :=1; //Ändert die Strichstärke des Stift-Objekts Pen
 f1:=Round(graphbox.height/2)-(new_b*(-bereich))+new_c;
 f2:=Round(graphbox.height/2)-(new_b*(bereich))+new_c;
 x1:= Round(graphbox.width/2)-bereich;
 x2:= Round(graphbox.width/2)+bereich;
 graphbox.canvas.MoveTo(x1,f1);
 graphbox.Canvas.LineTo(x2,f2);


end;

dies will einfach net funktionieren, stellt falsch dar