[lmikle]

Подозреваю, что надо вставлять в компонент.
Но можно попробовать вот так:

Код:

// Увеличить шрифт на 1
procedure TForm1.Button1Click(Sender: TObject);
begin
  Inc(AFontSize);
  if (AFontSize >= 0) and (AFontSize <= 4) then
    WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, AFontSize);
end;