关于自动表单提交，大家来看看为何会这样？两种表单提交的方法有何不同？(100分)

写了一个小程序，在www.ip138.com上提交一个IP地址查询所在地：
这样写就可以：
procedure TForm1.FormActivate(Sender: TObject);
begin
Form1.WebBrowser1.Navigate('http://www.ip138.com/');
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Myinput : Olevariant;
begin
Myinput := WebBrowser1.OleObject.document.all.item('ip',0);
Myinput.value := '202.96.128.143';
Myinput :=WebBrowser1.oleobject.document.forms.item(0,0).submit;
end;

这样写就不行，运行时出现错误：access violation at address 0045912f in module 'project2.exe'. read of address 00000000.
procedure TForm1.FormActivate(Sender: TObject);
begin
Form1.WebBrowser1.Navigate('http://www.ip138.com/');
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Myinput : Olevariant;
begin
Myinput := WebBrowser1.OleObject.document.all.item('ip',0);
Myinput.value := '202.96.128.143';
Myinput := WebBrowser1.oleobject.document.all.item('submit',0);
Myinput.Click;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Myinput,Mysubmit : Olevariant;
begin
Myinput := WebBrowser1.OleObject.document.all.item('ip',0);
Myinput.value := '202.96.128.143';
Mysubmit := WebBrowser1.oleobject.document.all.item('submit',0);
Mysubmit.Click;
end;

to djrj,
你这样还是出现相同的错误。

你好.我是WWEI656,你所写的代码我已经看到.
weiliu,太长,没有看明白.这样说吧,我想做一个'屏蔽WINDOWS'按钮
,然后点击这个按钮,WINDOWS键不起作用了.这样的话你所写的这么多代码我使用那几大块,请给予说明.本人水平较差,希望能多多赐教.我的系统是XP.

你好，我是ＷＷＥＩ６５６。不好意思又来打搅你。你给的注释都是西文，所以我没有看懂这几段代码，请你把注释给再注一遍好吗？！谢谢了。