求一个数从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};

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

while (j<i）  改为while (j<i) do  缺少了一个do

恩 就是while (j<i) 后少了 do

非常感谢，就是这样，可是它错误提示为什么不直接指出呢，真郁闷啊。

基本语法和语句结构多熟悉熟悉。其实，它已经提示到了这地方出错的原因