Ошибка в Delphi (Not enough actual parameters)

[AnnNoob]

Ошибка вылазит вот в этой функции при вычислении косинуса и в аналогичной с синусом.

function TForm2.DTF(n,i: integer; x:real): extended;
var k: integer;
begin
  DTF:=0;
  for k:=1 to n do
  dtf:=dtf+cos(6.28*i*(k-1)/n);
end;

[BDA]

function TForm2.DTF(n,i: integer; x:real): extended;
var
  k: integer;
  res: extended;
begin
  res:=0;
  for k:=1 to n do
    res:=res+cos(6.28*i*(k-1)/n);
  DTF:=res;
end;

[eval]

result:=0;
for k:=1 to n do
result:=result + cos(6.28*i*(k-1)/n);

10 символов.

[AnnNoob]

спасибо!!!