DELPHI Заранее спасибо!

Помогите сдать работу для универа.
Мне надо чтобы прога рисовала линию безье с 7 точками.
У меня получилось сделать только 5:

procedure TForm1.BezierCurve;
var i:integer;
t:real;
x,y:integer;
begin
t:=0;
while t<=1 do
begin
B[0]:=(1-t)*(1-t)*(1-t)*(1-t);
B[1]:=4*t*((1-t)*(1-t)*(1-t));
B[2]:=6*sqr(t)*((1-t)*(1-t));
B[3]:=4*t*t*t*(1-t);
B[4]:=t*t*t*t;

Помогите сделать ещё 2 чтобы было 7.
Заранее спасибо,