Oszlopdiagramot hogyan kell Lazarusban csinálni?

unit Unit1;

interface

uses

  Classes, SysUtils, FileUtil,

  Forms, Controls, Graphics, Dialogs,

  TAGraph, TASeries, TAChartUtils;

type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

  private

    FBar: TBarSeries;

  public

    Chart1 : TChart;

  end;

var Form1: TForm1;

implementation

{$R *.lfm}

var N: Integer = 10 ;

// Az F(K) függvény.

function F(K: Double): Double;

begin

  // Az ábra alapján kell visszaadni az értékeket.

  Result := Cos(K);

end;

procedure TForm1.FormCreate(Sender: TObject);

var

  K: Integer;

  Y: Double;

begin

  // Létrehozunk egy új TChart objektumot.

  Chart1 := TChart.Create(Self);

  Chart1.Parent := Self;

  // Létrehozunk egy új TBarSeries objektumot.

  FBar := TBarSeries.Create(Chart1);

  FBar.SeriesColor := clGreen;

  Chart1.AddSeries(FBar);

  for K := 1 to N do

  begin

    Y := F(K); // A függvény, amit megakarunk jeleniteni a grafikonon.

    FBar.AddXY(K, Y); // Egy érték megjelenitése a grafikonon.

  end;

end;

end.