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

Question

Помогите сдать работу для универа. 
Мне надо чтобы прога рисовала линию безье с 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. 
Заранее спасибо,

Александра Глухова · Accepted Answer

А откуда вы взяли эти формулы? Сами вычислили или откуда-то из интернета?