Delphi定义整型（integer)变量

Question

工程里只有Unit1，现在想定义一个整型(integer)变量，
  
      让所有过程（事件）procedure XXX(Sender: TObject);
           
               都能够对这变量读写修改。应该怎么弄？

Answer 1

比如说procedure A(Sender: TObject; )后，变量a=10;
procedure B(Sender: TObject; )的时候，变量a读出来的时候不是定义时的值而要是procedure A后的值，即10

Answer 2

定义成全局变量就可以了var
  MainForm: TMainForm;  Time: Integer;

Answer 3

我也是像您这么定义的。但是是不行。 
我的目的是：
var
  MainForm: TMainForm;  Time: Integer=1;procedure A(Sender: TObject; )后，变量a=10;
procedure B(Sender: TObject; )的时候，我的目的是变量a读出来的时候不是定义时的（0值）而要是procedure A后的值，即10。

Answer 4

shuaialang说的还是不行。我的目的是procedure A(Sender: TObject; )里面变量a的值要能传到procedure B(Sender: TObject; )中

Answer 5

除了定义成全局变量之外，还要在其它单元中Uses该变量所在的单元，这样它就可以在整个工程中使用了！