（100分）如何控制浏览器的“前进”和“后退”？（指在自己写的浏览器中）(100分)

我用WebBrowser控件写了一个浏览器，
在“前进”按钮中：WebBrowser1.goforward
在“后退 ”按钮中：WebBrowser1.goback
我想在没有下一页时让“前进”按钮不可用，在没有上一页时让“后退 ”按钮不可用，
可是不知道如何判断有没有“上一页”或“下一页”。
请教大虾！[blue][/blue]

用commandstatechange事件判断，里面有enable

procedure TFrmChild.WebBrowser1CommandStateChange(Sender: TObject;
Command: Integer; Enable: WordBool);
begin
if IsWindowVisible( Handle ) then
begin
case Command of
CSC_NAVIGATEBACK :
begin
FrmMain.BtnGoBack.Enabled := Enable;
FrmMain.MenuView_GoTo_GoBack.Enabled := Enable;
EnableGoBack := Enable;
end;

CSC_NAVIGATEFORWARD :
begin
FrmMain.BtnGoForward.Enabled := Enable;
FrmMain.MenuView_GoTo_GoForward.Enabled := Enable;
EnabledGoForward := Enable;
end;
end;
end;
end;

好象还有一个STOP的，不过我试了，没什么用。
按住ctrl点，会出现“超连接”，点了后就有相关的一些代码了，对相关信息的使用有帮助的。

谢谢！