如何获取FormActivate里定义的变量值

怎么获取FormActivate里定义的变量值
我是这样写的
procedure TzhuceForm.FormActivate(Sender: TObject);
 var
  i:integer;
  aa:string;
begin
  randomize;
  i:=random(99)+1;
  edit1.Text:=inttostr(i);
  end;

然后我加了一个BitBtn1 我想在这里单击事件里 想得到上面那个i的数值 
怎么写 等待 写详细 谢谢

[解决办法]
procedure TzhuceForm.FormActivate(Sender: TObject);
var
i:integer;
aa:string;
begin
randomize;
i:=random(99)+1;
self.tag:=inttostr(i);
end;