怎么样在edit中显示一条记录

Question

procedure tform1.browserec(n:integer);
begin
  assignfile(stufile,'stufile.dat');
  reset(stufile);
  seek(stufile,n);
  read(stufile,recstu);
  edit1.Text:=recstu.name;
  edit2.Text:=recstu.sex;
  edit3.Text:=recstu.phone;
  edit3.Text:=recstu.address;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  if fileexists('stufile.dat') then
  begin
     recnum:=0;
     browserec(recnum);
     closefile(stufile);
  end
  else
     showmessage('文件不存在,请重新创建');end;
怎么显示不出来啊！是不是少了点什么？？？？

Answer 1

if not assignfile(stufile,'stufile.dat');
  then  try 
        begin
         reset(stufile);
         seek(stufile,n);
         read(stufile,recstu); 
         edit1.Text:=recstu.name; 
          edit2.Text:=recstu.sex; 
          edit3.Text:=recstu.phone; 
         edit3.Text:=recstu.address
       finally
         释放掉stufile
        end;
       end;