错误处理

procedure write(str:string);
var
      f:   TextFile;
      begin
      if isreadonly(str) then FileSetAttr(str,128);
      AssignFile(f,str);
      try
      Append(f);
      except
      exit;
      end;
      WriteLn(f,'ddddddddddddddd');
      CloseFile(f);
  end;用了这个过程处理文件，但是因为开着杀毒软件
处理到ASP木马的时候，杀毒软件禁止了对这个文件的访问
所以出现了IO错误，加了TRY还是不对，程序会终止
请问上面的错误处理不正确吗？