График функции в Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormPaint(Sender: TObject);
var x0,y0: Integer; // начало координат по х и у
    x,y: Extended;  // расчет х и у
    m: Integer;     // масштаб
begin
  x0 := ClientWidth div 2;  //узнаем центр формы по х
  y0 := ClientHeight div 2; // узнаем центр формы по у
 
  // чертим х ось
  Canvas.MoveTo(0, y0);
  Canvas.LineTo(ClientWidth, y0);
 
  // чертим у ось
  Canvas.MoveTo(x0, 0);
  Canvas.LineTo(x0, ClientHeight);
 
  m := 15;  //задаем масштаб, иначе будет очень мелкий график
 
  x := -20; // зададим диапазон от куда до куда будем считать наш график
 
  // собственно прорисовывем
  while x <= 20 do
    begin
      y := 3*x-4;
      Canvas.Pixels[x0+Round(x*m), y0-Round(y*m)] := clGreen;
      x := x + 0.01;
    end;
 
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
  Repaint;
end;
 
end.