Alguien sabe como añadir a un Tbrowser la opción para que se pueda hacer zoom

[erickahr]

Revisa que en el uses estes invocando OleCtrls, SHDocVw, StdCtrls.

Ahora en un boton pones:

Código Delphi [-]
W.OleObject.Document.Body.Style.Zoom := 0.5;

Donde W es el TWebBrowser, y el 0.5 es el nivel de zoom (50%).

Lo puedes poner en un TTrackBar:

Código Delphi [-]
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  W.OleObject.Document.Body.Style.Zoom := TrackBar1.Position/10;
end;

Propiedades del TTrackBar:

Código Delphi [-]
object TrackBar1: TTrackBar
    Left = 80
    Top = 416
    Width = 150
    Height = 45
    Max = 100
    Min = 1
    Position = 10
    TabOrder = 3
    OnChange = TrackBar1Change
  end

Con esas propiedades y el codigo que te pongo, el TrackBar Permite cambiar el zoom desde el 1% hasta el 1000%.

Espero te funcione.