Lazarus oszlopdiagram

Feladat: Adott F(K),K=1,2...,N függvényértékek. És egy ábra alapján kell megrajzolni. Eljutottam egy ideig, de nem értem mi a baj.
program szaztizenhat;
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 ;

function F(K: Double): Double;
begin
Result := Cos(K);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
K: Integer;
Y: Double;
begin
Chart1 := TChart.Create(Self);
Chart1.Parent := Self;
FBar := TBarSeries.Create(Chart1);
FBar.SeriesColor := clGreen;
Chart1.AddSeries(FBar);
for K := 1 to N do
begin
Y := F(K);
FBar.AddXY(K, Y);
end;
end;

end.