初学者，请大家指点

Question

照着书上写了一个程序，编译出现错误。
Declaration expected but end of file found是什么原因呢。

Answer 1

源码是这样，大哥，帮我指导下嘛
procedure TForm2.Button1Click(Sender: TObject);var
dno: integer;
begin
  if dnoedit.Text='' then
   begin
    showmessage('ÇëÊäÈëϵºÅ');
    exit;
   end;   try
    dno:=strtoint(dnoedit.Text);
   except
    showmessage('input is wrong');
    exit;
end;   if not depttb.Locate('dno',dno,[])then
   begin
     showmessage('ÕÒ²»µ½ËùÐèÒªµÄϵºÅ');
     exit;
   end;
    end;