[YVitaliy]

Код:

 var   x,n,i:integer;
function fk(i,x:integer;a:array of integer):extended;
begin
  if i>=length(a) then begin
    result:=0;
    exit;
  end;
  if i=0 then  result:=a[0]+fk(i+1,x,a) else
  result:=a[i]*Power(x,i)+fk(i+1,x,a);
end;
begin
  x:=strtoint(edit1.text);
  setlength(a,stringgrid1.ColCount);
  for i:=0 to length(a)-1 do
  a[i]:=strtoint(stringgrid1.Cells[i,0]);
  label1.caption:=floattostr(fk(0,x,a)); 
end;
end.

На коленке. За работоспособность и оптимальность не ручаюсь