delphi формула Маклорена

[Ekатерина]

Доброго времени суток. Я хочу обратиться к вам за помощью.Передо мной стоит задача: написать функцию, которая считает косинус по формуле Маклорена, а остаточный член по формуле |cosx - MyCosx|, где myCos-моя функция, а cos-стандартная функция. Количество членов задается пользователем.
procedure TForm1.btncosClick(Sender: TObject);
var
x, C, MyPow, MyFact, MyCos:real;
i, n, k:integer;
begin
x := strtoint(edtarg.Text);
n := strtoint(lblN.Caption);

C := cos(x);

for i := 2 to n do
begin
{степень}
for k := 2 to i do
// begin
MyPow := Exp((2*k + 1)*Ln(-1))*Exp(k*Ln(X));
i := i + 2;
//end;
{факториал}
for k := 2 to i do
// begin
MyFact := MyFact*i;
i := i + 2;
// end;
{косинус}
k := MyPow/MyFact;
MyCos := MyCos + k;
i := i + 2;
end;
edtarg.Text:=(MyCos);
lblR.Caption := 'R()=' inttostr(abs(C - MyCos));
end;

Помогите, пожалуйста, разобраться с моими ошибками

[eoln]

var
  k, x, MyPow, MyFact, MyCos: real;
  i, n: integer;
begin
  x := strtofloat(edtarg.Text);
  n := strtoint(lblN.Caption);
  MyFact := 1;
  MyCos := 1;
  MyPow := 1;
  for i := 1 to n-1 do
  begin
    {степень}
    MyPow := -MyPow * sqr(X);
   {факториал}
    MyFact := MyFact * (2 * i) * (2 * i - 1);
    {косинус}
    k := MyPow/MyFact;
    MyCos := MyCos + k
  end;
  edtarg.Text:=floattostr(MyCos);
  lblR.Caption := 'R()=' + floattostr(abs(cos(X) - MyCos))
end;

[Ekатерина]

Спасибо за помощь! Свои ошибки осознала!