Canvas- Problem mit Parabel zeichnen

[Blubbel]

Hallo leute!

Habe ein kleines Problem. Ich versuche mein Programm zu verbessern. Habe da jetzt was versucht und meine Parabel wird nicht richtig gezeichnet. also statt "normal" werden diagonale Striche gezeichnet. Kann den Fehler nicht finden... Könnt ihr mir helfen?

Delphi-Quellcode:

for lIndex := 0 to high(AFuncData) do
  begin
    case round(AFuncData[lIndex][0]) of
      0:
      begin
        for i := 0 to GetWidth(ACanvas.ClipRect) do
        begin
          x:=round((i - (GetWidth(PaintBox1.Canvas.ClipRect) div 2)) / GetScaleValue(TrackBar1.Position));
          y:=round(CalcX2(x));
          j:=(GetHeight(PaintBox1.Canvas.ClipRect) div 2) - y * GetScaleValue(TrackBar1.Position);
          PaintBox1.Canvas.Pixels[i,j]:=clblue;