Skrip membuat Simulasi Grafik

Bagaimana si skrip membuat simulasi grafik??
bisa di atur..muga ini bisa membatu,

langkah awal.
buat form seperti tampilan awal ini :D
Tampilan Awal (Before Run)

Komponen yang dipakai
Panel (untuk Dasarannya)
Chart
Button
Memo

Ini Skripnya
procedure TForm1.Button1Click(Sender: TObject);
var x: integer ;



function fku (x:integer):integer;
begin
result :=(x*x)+x-6
end;

begin
memo1.clear;
for x:= -4 to 4 do
begin
showmessage('xx');
memo1.Lines.Add(inttostr(x)+','+inttostr(fku(x)));
chart1.series[0].AddXY(x,fku(x));
end;
end;
end.


Setelah Run (Hasil Running Program)