关于文件创建和读的代码，这段代码错在哪里？

给分哦!filename:='d:\mail\user.mil'; //目录已经存在
  if not fileexists(filename) then
    if closefile(filecreate(filename)) then
    //文件创建成功后,要关闭文件句柄
    begin
      assignfile(ful,fileName);
      reset(ful);
      tul.fUserID:='aa';
      tul.fUserPassword:='bb';
  try
    write(ful,tul);
  finally
    CloseFile(ful);
  end;
  end;