Ошибка в коде программы. Не выполняется.

[steeledguy]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons,math;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
edt1: TEdit;
edt2: TEdit;
edt3: TEdit;
btn1: TButton;
btn2: TBitBtn;
mmo1: TMemo;
procedure btn1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1; x,xn,xk,s,y,h,a,i,F:extended; n:integer;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
mmo1.Clear;
mmo1.Lines.add('Âû÷èñëåíèå òàáëèöû çíà÷åíèé ôóíêöèè');
mmo1.Lines.Add('Èñõîäíûå äàííûå');
n:=strtoint(edt1.Text);
mmo1.Lines.Add('n='+FloatToStrf(n,f fFixed,6,2));
xn:=Strtofloat(edt2.Text);
Mmo1.Lines.Add('xn='+FloatToStrf(xn ,ffFixed,6,2));
xk:=StrToFloat(Edt3.Text);
Mmo1.Lines.Add('xk='+FloatToStrF(xk ,ffFixed,6,2));
Mmo1.Lines.Add('Òàáëèöà çíà÷åíèé ôóíêöèè');
Mmo1.Lines.Add(' x S(x) Y(x) n');
x:=xn;
F:=2;
s:=1;
h:=(xk-xn)/n;

For i:=1 To n do Begin
F:=F*i;
a:=cos(n*pi/4)*Power(n,x)/F;
s:=s+a;
y:=exp(x*cos(pi/4))*cos(x*sin(pi/4));
x:=x+h;
Mmo1.Lines.Add(FloatToStrF(x,ffFixe d,6,2)+' '+FloatToStrF(s,ffFixed,
8,4)+' '+FloatToStrF(y,ffFixed,8,4)+' '+FloatToStr(n));

end;



end;

end.

Вот весь код программы.
при попытке выполнить программу выдает следующее :
[Fatal Error] Unit1.pas(66): Internal error: C1118
Указывает на 66-ую строку (2-ая снизу , а именно End
Помогите решить проблему.

[steeledguy]

там где корявые буквы находится текст

[vovk]

переменная i в цикле должна быть порядкового типа.