create过程中参数的问题 (50分)

小雨哥第二段程序必须是按钮按三次才会出错，为什么啊？

看下面的这一段，运行到第二次的时候，赋值给了button1？真奇怪，为什么？
implementation
var i:integer;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var myButton1:TButton;
myButton2:TButton;
begin
if i=0 then
begin
myButton1 := TButton.Create(form1);
myButton2 := TButton.Create(myButton1);
i:=i+1;
end;
mybutton2.Caption:='cmj';
Try
if i=0 then
myButton1.Free;
myButton2.Caption := 'olleh';//Click;
except
MessageBox(Handle,'错啦错啦，你指到哪里去了？','无效指针',mb_Ok);
end;
end;
initialization
i:=0;
end.

别想那么多嘛，有很多事是想不清的，我的原则就是，自己创建的自己释放，只要能编译
通过，程序运行正常我就不管了,嘿嘿[]