Формула Маклорена

[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 := MyFac*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;

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