这个问题我刚好以前作过，源码给你，哈哈，快给分吧。
procedure TMainFrm.mFont4Click(Sender: TObject); // 4 : 最大
var
pvaIn,pvaOut: OLeVariant;
begin
pvaIn := 4;
pvaOut := NULL;
WebBrowser1.ExecWB(OLECMDID_ZOOM,OLECMDEXECOPT_DONTPROMPTUSER,pvaIn,pvaOut);
end;
变量pavIn对应字体大小
4：最大
3：较大
2：标准
1：最小
