TWebbrowser изменение размера шрифта

[teandr]

Доброго времени суток !!!

Возникла необходимость в своем браузере. В качестве исходника взял Mini-webbrowser (прилагается).Отредактировал его для собственных нужд.
Всё устраивает,но есть один ,в моем случае,очень большой недостаток. Дело в том, что браузер не поддерживает изменение размера шрифта.Это нужно для чата ,работающего на flash. Так-вот, в этом чате
есть возможность менять FRONT SIZE.

В моём случае, при нажатии на стрелочки,размер не изменяется и перестаёт работать Back Space в окне чата.
На форумах нашел возможное решение проблемы:

procedure TWebBrowserXXX.SetFontSize(nSize: OleVariant);
begin
if (nSize >= 0) and (nSize <= 4) then
ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, nSize)
end;

Но куда вставить этот код ?(программирую на PHP,с Delphi мало знаком).
Помогите пожалуйста !!!!!!! Очень нужно.

[Stilet]

Показываю:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
  TWebBrowser=class(SHDocVw.TWebBrowser)
  private
    FSetFontSize: Integer;
    procedure SetSetFontSize(const Value: Integer);
  public
   Property SetFontSize:Integer read FSetFontSize write SetSetFontSize;
  end;
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('www.ya.ru');

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.SetFontSize:=4;
end;

{ TWebBrowser }

procedure TWebBrowser.SetSetFontSize(const Value: Integer);
var ww:OleVariant;
begin
  FSetFontSize := Value;
  ww:=FSetFontSize;
  if (FSetFontSize >= 0) and (FSetFontSize <= 4) then
  ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,ww);
end;

end.

[teandr]

Спасибо,Виталий !