Вычисление абсциссы, ординаты и графика параболы

unit Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TMainForm = class(TForm)
    Can: TImage;
    a: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    b: TEdit;
    Label3: TLabel;
    c: TEdit;
    Label4: TLabel;
    Button1: TButton;
   
    procedure aChange(Sender: TObject);
    procedure bChange(Sender: TObject);
    procedure cChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  MainForm: TMainForm;
  pa, pb, pc: real;
 
implementation
 
uses Math;
 
{$R *.dfm}
 
procedure PrintGraph();
var
  x, f: integer;
begin
  with MainForm.Can, MainForm.Can.Canvas do
    begin
      Brush.Color := clBtnFace;
      Rectangle(-1, -1, Width+1, Height+1);
 
      // Оси координат
      MoveTo(Width div 2 - 4, 8);
      LineTo(Width div 2, 0);
      LineTo(Width div 2 + 4, 8);
      LineTo(Width div 2, 0);
      LineTo(Width div 2, Height);
 
      MoveTo(Width - 8, Height div 2 - 4);
      LineTo(Width, Height div 2);
      LineTo(Width - 8, Height div 2 + 4);
      LineTo(Width, Height div 2);
      LineTo(0, Height div 2);
 
      MoveTo(-1, 0);
 
      for x := - Width div 2 to Width div 2 do
        begin
          f := round(pa * x * x + pb * x + pc);
          LineTo(x + Width div 2, - f + Height div 2);
        end;
 
 
    end;
end;
 
procedure TMainForm.aChange(Sender: TObject);
var
  err: integer;
begin
  Val(a.Text, pa, err);
  PrintGraph;
end;
 
procedure TMainForm.bChange(Sender: TObject);
var
  err: integer;
begin
  Val(b.Text, pb, err);
  PrintGraph;
end;
 
procedure TMainForm.cChange(Sender: TObject);
var
  err: integer;
begin
  Val(c.Text, pc, err);
  PrintGraph;
end;
 
procedure TMainForm.FormCreate(Sender: TObject);
var
  err: integer;
begin
  Val(a.Text, pa, err);
  Val(b.Text, pb, err);
  Val(c.Text, pc, err);
  PrintGraph;
end;