请看下面一段代码，edit2.text为什么出错？

Question

delphi2009版本，要求通过在edit1中输入数字，然后计算平方，下面是代码，先要求检测edit1里面是不是数字，如果不是（空或者是汉字等），将弹出“你好！请输入数字按钮”，请指教，为什么总是显示edit2.text出错的信息，显示出错内容是
Expected INITIALIZATION but received an identifier 'edit2' at line 40
Expected the end of file but received an identifier 'text' at line 40
procedure TForm1.Button1Click(Sender: TObject);
begin
if not isnumber(edit1.text) then
showmessage('你好！请输入数字');
end;
edit2.text:= floattostr(strtoFloat(edit1.text)*strtofloat(edit1.text));
end;

Answer 1

edit2.text:= floattostrDef(strtoFloat(edit1.text,0)*strtofloatDef(edit1.text,0));

Answer 2

先看看edit2是否存在，form有没有edit2

Answer 3

if not isnumber(edit1.text) then 
  showmessage('你好！请输入数字')
else
  edit2.text := floattostr(strtoFloat(edit1.text)*strtofloat(edit1.text)); 

Answer 4

将edit2.text:= floattostr(strtoFloat(edit1.text)*strtofloat(edit1.text)); 
前面的end;语句改成ｅｌｓｅ