Постройка графика (Help!)

[Карась]

Procedure TForm1.Button1Click(Sender: TObject);
Var i : Integer; // Переменая счётчика
    y, x : Real; // Координаты x и y
    xc, yc : Integer; // Координаты центра О
    A, B, C : Real; // Коэффициенты квадратного трёхчлена
Begin
// Укажем некоторые значения
xc := Round(Img.Width * 0.5);
yc := Round(Img.Height * 0.5);
x := - Img.Width;
A := StrToFloat(Form1.A.Text);
B := StrToFloat(Form1.B.Text);
C := StrToFloat(Form1.C.Text);

 With Img.Canvas Do
  Begin
  // Отрисовка координатных осей.
    FillRect(ClientRect);
    MoveTo(10, yc);
    LineTo(Round(Img.Width - 10), yc);
    MoveTo(xc, 10);
    LineTo(xc, Round(Img.Height - 10));

  // Построение графика.
  For i := 1 To 500000 Do
    Begin
      x := x + 0.01;
      y := A * x * x + B * x + C;
      If (y < 200) And (y > -200 ) Then
        Img.Canvas.Pixels[Round(x * 10) + xc, yc - Round(y)] := ClBlue;
    End;
  End
End;

Так как всегда параболы получались очень узкие, то я добавил к координате икс небольшой множитель.. Так красивее смотриться...

[WPALI4]

eoln, Карась, спасибо вам огромное за помощь!