求平方和出现的问题

求一个数从1开始的平方和，代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
s:int64;
j,i:integer;
begin
i:=strtoint(edit1.Text );
s:=0;
j:=0;
while(j<i)
begin
j:=j+1;
s:=s+j*j;
end;
edit2.Text :=inttostr(s);
end;
出现错误：[错误] Unit1.pas(37): Missing operator or semicolon                    定位后：begin（while下面的）
          [致命错误] Project1.dpr(5): Could not compile used unit 'Unit1.pas'    定位后：Unit1 in 'Unit1.pas' {Form1};

请高手指点迷津！！！！！