これを利用すると、1倍や2.5倍、0.5倍など細やかなズームが行えます。実際はスタイルシートを動的に書き加えているだけです。なので、このTipsを書き換えれば、好きなスタイルシートを動的に追加する動作が行えます。

usesにSHDocVw_TLB, MSHTML_TLBを追加し、以下の関数を定義してください。

procedure TForm1.SetZoom(Percentage: Integer);
begin
  if WebBrowser1.Document = nil then
    Exit;

  try
    IHTMLDocument2(WebBrowser1.Document).body.style.setAttribute(
      'zoom',IntToStr(Percentage)+'%',0);
    except
  end;
end;

この例では、ズーム倍率はパーセンテージ指定になっています。500を指定すると５倍、30だと0.3倍のズームになります。この辺りはスタイルシートのzoomのリファレンスをどこかで探して見てください。