代码如下：

procedure TForm1.btn1Click(Sender: TObject);
var
currUrl:IWebBrowser;
iall : IHTMLElement;
begin

        try
        finally
wb1.Navigate('http://www.huishangbao.com/member/login.php');
wb1.OleObject.Document.getElementById('username').value:='atssltjgc';
wb1.OleObject.Document.getElementById('password').value:='861201zzd';
wb1.OleObject.document.all.item('dl_button').click;
ShowMessage('已经登录');
    wb1.FreeInstance;
try
finally
    wb1.Navigate('http://www.huishangbao.com/member/my.php?mid=5&action=add');
    Sleep(600);
    ShowMessage('已经登录供应页面');
     if Assigned(wb1.Document) then
   begin
     iall := (wb1.Document AS IHTMLDocument2).body;
     while iall.parentElement <> nil do
     begin
       iall := iall.parentElement;
     end;
     memo1.Text := iall.outerHTML;
          end;
end;
end;
end;
遇到的问题是：
wb1第一次Navigate即
wb1.Navigate('http://www.huishangbao.com/member/login.php');
可以得到执行 但是没有显示ShowMessage('已经登录');

关键是wb1的第二次Navigate即
wb1.Navigate('http://www.huishangbao.com/member/my.php?mid=5&action=add');
没有执行啊

模拟登录的是 电商网站 会商宝 www.huishangbao.com  帐号 atssltjgc 密码 861201zzd
请兄弟们都试着登录一下 再运行下我的代码 帮着分析分析问题出在哪里 怎么解决
谢谢了！！！