Работа с циклами 2. Вопрос

[SPQR]

вот такого рода задача:
_________________________________
10
∑ sin(n*x)/n
n=1

Ввод х выполнить с помощью InputBox. Вывод через Edit.
_________________________________


Сделал как образец попроще для себя, но здесь ошибка:


Сам пример:

6
∑ n*x (в степени 2n)
n=1

Код:

var
Form1: TForm1;
x: real;
implementation

{$R *.dfm}
function fx(k: integer): real;
var
i: integer;
p:real;
begin
p:=1;
for i:=1 to 2*k do p:=P*x;
fx:=p;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
n: integer;
s: real;
begin
x:=StrtoFloat(InputBox('Вводчисла','Введите x',' '));
for n:=1 to 6 do s:=s+n*fx(n);
Edit1.Text:=FloattoStr(S);
end;
end.

Ошибка такая в этом случае: Expected '=' but '(' found

Помогите разобраться с первой задачей и скажите что за ошибка во второй?

[Stilet]

На какой строке то ошибка?

[Plague]

var
Form1: TForm1;
S: String;
x, f: real;
i:integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
S:= InputBox('Введите число', 'X: ', '0');
try
x:=strtofloat(s);
f:=0;
for i:=1 to 10 do f:=f + sin(i*x)/i;
edit1.Text:=FloatToStr(f);
except
Edit1.Text:='Ошибка ввода!';
end;
end;

во второй вроде ошибок нет

[SPQR]

Благодарю тебя уважаемый Plague.

PS: Stilet извиняюсь, забыл указать

Прежде чем закончить с вопросом об этой теме хочу задать еще вопрос, а именно: что обозначает ошибка Identifier Redeclared: 'TForm1.Image1MouseMove'. По моим догадкам что-то с индентификатором.

Вот что я написал.

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin
Image1.Canvas.Pen.Color:=clRed;
Image1.Canvas.Brush.Color:=clBlack;
if ssleft in shift then image1.canvas.LineTo(x,y);
end;

Т.е. строка ошибки указывает на begin

[KORT]

мне кажется ты второй раз объявил идентификатор. Посмотри а проги

[Alex21]

объяви эту процедуру:

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;