exitproc问题

Question

Delphi建议将exit procedure写成exit procedure 链，但为保证链的完整，在把exitproc指向你的exit procedure前要先保存当前的exitproc的内容，同时你的exit procedure的第一条语句必须是reinstall exitproc。
var
  exitproc : Pointer;procedure MyExit;
begin
  exitproc := exitsave;
  ...
end;begin
  exitsave := exitproc;
  exitproc := @MyExit;
  ...
end.何苦要先把exitproc赋给exitsave，然后exitsave再赋给exitproc，这两部时exitproc的内容一样吗？