帮我看看，自动登陆出错了。(20分)

procedure TForm1.Button1Click(Sender: TObject);
begin
web.Navigate('mail.163.com');
(((web.Document as IHTMLDocument2).body.all as
IHTMLElementCollection).item('username',0) as IHTMLTextAreaElement).value:='a'; //错在这行

(((web.Document as IHTMLDocument2).body.all as
IHTMLElementCollection).item('password',0) as IHTMLTextAreaElement).value :='b'
end;

运行后出现一个对话框：
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0045AF0A in module 'Project1.exe'. Read of address 00000000'. Process stopped. Use Step or Run to continue.


为什么呢？
会因为我的网页没有打开吗？（出错的时候网页没有显示出来呢）

网页打开与你的程序运行不是同步的。
程序不会等到网页打开后就马上执行下面的代码，所以出错。

我也想到了是这个问题，
可是要怎么让它等到网页全打开了，在执行下面的代码呢？？

自己解决了。

只有还有一个问题。

按我上面这样写，
我要怎么让它模拟点登陆按钮呢？