请问下面这段代码在编译时出现的错误应该怎样修改？谢谢！

Question

procedure TForm3.BitBtn2Click(Sender: TObject);
var
  ClassName, StudentNumber : String
  //ClassNameLength          : Integer
begin
  //判断“班级名称”是否符合要求？
  ClassName       := Trim(Edit1.Text);
  //ClassNameLength := Length(ClassName);
  if ClassName = '' then
    MessageDlg('“班级名称”不能为空！', MTWarning, [MBOk], 0)
  else
    begin
      if Length(ClassName) > 60 then
        MessageDlg('“班级名称”太长！', MTWarning, [MBOk], 0);
    end;
  //判断“学生人数”是否符合要求？
  StudentNumber := Trim(Edit3.Text)
  try
    StrToInt(StudentNumber)
  except
    MessageDlg('有把握学好用消息框吗？',mtConfirmation,[mbYes,mbNo],0);
  end;
end;
[Error] Class2.pas(56): ';' expected but 'BEGIN' found
[Error] Class2.pas(69): 'END' expected but 'TRY' found
[Error] Class2.pas(73): '.' expected but ';' found
[Warning] Class2.pas(74): Text after final 'END.' - ignored by compiler
[Fatal Error] SJZDPGFXXT.dpr(8): Could not compile used unit 'Class2.pas'

Answer 1

procedure TForm3.BitBtn2Click(Sender: TObject);
var
  ClassName, StudentNumber : String;
  //ClassNameLength          : Integer
begin
  //判断“班级名称”是否符合要求？
  ClassName       := Trim(Edit1.Text);
  //ClassNameLength := Length(ClassName);
  if ClassName = '' then
    MessageDlg('“班级名称”不能为空！', MTWarning, [MBOk], 0)
  else
    begin
      if Length(ClassName) > 60 then
        MessageDlg('“班级名称”太长！', MTWarning, [MBOk], 0);
    end;
  //判断“学生人数”是否符合要求？
  StudentNumber := Trim(Edit3.Text);
  try
    StrToInt(StudentNumber)
  except
    MessageDlg('有把握学好用消息框吗？',mtConfirmation,[mbYes,mbNo],0);
  end;
end;

Answer 2

var ClassName, StudentNumber : String后面要加分号。
StudentNumber := Trim(Edit3.Text)后面要加分号