помогите доработать программу.

Question

Нужно чтобы решение было с функцией 
 Дано вещественное число А и целое число N(>0). Используя один цикл, найти сумму: 1+A+A^2+A^3+...+A^N. 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
sum,step,a,i,n:integer; 
begin 
a:=strtoint(Edit1.Text); 
n:=strtoint(Edit2.Text); 
step:=1; 
sum:=1; 
for i:=1 to n do 
begin 
step:=step*a; 
sum:=sum+step; 
end; 
Edit3.Text:=IntToStr(sum); 
end; 
end.

Виталий Петренко · Accepted Answer

function pow(n,j): integer; 
var i, n2: integer; 
begin 
n2:=n; 
for i:=2 to j do 
n2:=n2*n; 
pow:=n2; 
end; 
procedure TForm1.Button1Click(Sender: TObject); 
var 
sum,a,i,n:integer; 
begin 
a:=strtoint(Edit1.Text); 
n:=strtoint(Edit2.Text); 
sum:=a+1; 
for i:=2 to n do 
begin 
sum:=sum+pow(a,i); 
end; 
Edit3.Text:=IntToStr(sum); 
end; 
end.