AssignFile()函数能否自动实现共享文件读写的正确控制？

Question

Delphi帮助上有一句：
Note:To avoid scope conflicts, AssignFile replaces the Assign procedure that was available in previous versions of Delphi. However, for backward compatibility Assign is still available.所以，我认为能自动实现共享。如果用Assign，则不能。
或者用TFileStream,在Create中加上fmShareDenyNone选项，则完全实现无冲突共享。—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 1

lxpbuaa(桂枝香在故国晚秋)你好。
请问第一种TRY_FINALLY_END中，
AssignFile();
reset();
seek();
try
   write();
finally
   CloseFile();
End;
TRY应该放在哪个位置？

Answer 2

接受答案了。同意给lxpbuaa(桂枝香在故国晚秋)20分。