关于全局变量的问题

Question

看书过程中发现一个问题：
例程是通过splash form 上的timer控件实现自动释放splash form，打开主窗体，是通过在项目文件中通过splash form的modalresult属性的改变来触发，而modalresult是通过timer控件的ontime来改变。课后习题要通过变量来代替modalresult，不知如何实现？在什么地方声明这个变量？在project和unit中如何引用？

Answer 1

在implementation上面写
   smodalresult：...;
用法和modalresult一样

Answer 2

就在splash form里声明一个变量代替modalresult
type
  TSplashForm = class(TForm)
   private
    { Private declarations }
  public
    { Public declarations }  
    MyResult: Integer;        <-------在这里声明一个外部可调用的变量
  end;
timer控制MyResult
主窗体的显示根据MyResult来触发  if splashform.myresult =1 then
     ...
  else
     ...