Graphen einer Funktion zeichnen

[Matze]

Hi!

Ich möchte den Graphen einer beliebigen Funktion auf eine PaintBox zeichnen lassen,. Es geht auch, aber irgendwie nicht so richtig.

Hier mal mein bisheriger Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: real;
    x,y: integer;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
  c:=StrToInt(Edit3.Text);

  for x:=1 to 10 do
  begin
    PaintBox1.Canvas.Moveto(x,50-y);
    y:=round(a*(x*x)+b*x+c);
    ListBox1.Items.Add(IntToStr(x)+' ==> '+IntToStr(y));
    PaintBox1.Canvas.LineTo(x,50-y);
  end;
end;

Wie kann ich ein Achsenkreuz machen, das in der Mitte (0/0) hat und nach links hin negativ wird, nach rechts positiv, ...

Wenn ich das mit den canvas mache, dann gibt es da ja keine negative Koordinaten.