[Nurlan]

СПС
но я сделал немного по другому

Код:

try
   // 20 %
   if ComboBox1.itemindex=0
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.2;
   // 30 %
   if ComboBox1.itemindex=1
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.3;
   // 40 %
   if ComboBox1.itemindex=2
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.4;
   // 50 %
   if ComboBox1.itemindex=3
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.5;
   // 60 %
   if ComboBox1.itemindex=3
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.6;
   // 70 %
   if ComboBox1.itemindex=4
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.7;
   // 80 %
   if ComboBox1.itemindex=5
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.8;
   // 90 %
   if ComboBox1.itemindex=6
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.9;
   // 100 %
   if ComboBox1.itemindex=7
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=1;

   // 200 %
   if ComboBox1.itemindex=8
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=2;
   // 250 %
   if ComboBox1.itemindex=9
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=2.5;
   // 300 %
   if ComboBox1.itemindex=10
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=3;
   // 400 %
   if ComboBox1.itemindex=11
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=4;
   // 500 %
   if ComboBox1.itemindex=12
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=5;
  except

  end;