Stronn WWW w TWebBrowser i działanie klawiszy

Cześć
Wczytuję przygotowany kod strony www do TWebbrowser ,
Jest to strona uruchamiająca applet czata (przykładowo polchatu).
No i wszystko pięknie gra - jakbym uruchomił ten czat przez normalną przeglądarkę.
Tyle że w polu edycyjnym gdzie wysyłam tekst nie mogę poruszać kursorem przy
pomocy klawiszy (strałka lewa i prawa) oraz cofnąć klawiszem back space.
Dodam że wczytując tą stronę przez jakąś przeglądarkę - wszystko gra
Może mi ktoś podpowiedzeć w czym tkwi problem ?

W demosach delphi jest miniprzeglądarka, sprawdź czy ona dobrze działa, jeśli ie to nie jest to twoja wina.

Dzięki ale wszędzie jest to samo kiedy używam TWebBrowser

Znalazłem jakąś procedurkę ale nie działa poprawnie :(
Fakt - uaktywnia potrzebne mi klawisze (back) ale gdy coś wpisuję w okienka to sypie mi po dwie litery np chcę wpisać Adam i wychodzi AAddaamm <rozpacz>
Na dodatek wywołuje dzwięk (beep) przy kazdym wciśnięciu klawisza.
Dałem ponizej przykładowy test działania - prosiłbym aby ktoś uprzejmy zerknął co w nim poprawić by prawidłowo zadziałał bez tych skutków ubocznych które wymieniłem.

unit Unit1;

interface

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

type
  TForm1 = class(TForm) 
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
  private
    OleInPlaceActiveObject: IOleInPlaceActiveObject;
    procedure MsgHandler(var Msg: TMsg; var Handled: Boolean);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation {$R *.dfm}

//procedura przywracająca działanie klawiszy Back, Left , Right itd...
procedure TForm1.MsgHandler(var Msg: TMsg; var Handled: Boolean);
const
 StdKeys = [VK_BACK, VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT];
var
  IOIPAO: IOleInPlaceActiveObject;
  Dispatch: IDispatch;
begin
  if WebBrowser1 = nil then
  begin
    Handled := False;
    Exit;
  end;
  Handled := (IsDialogMessage(WebBrowser1.Handle, Msg) = True);
  if (Handled) and (not WebBrowser1.Busy) then
  begin
    if OleInPlaceActiveObject = nil then
    begin
      Dispatch := WebBrowser1.Application;
      if Dispatch <> nil then
      begin
        Dispatch.QueryInterface(IOleInPlaceActiveObject, IOIPAO);
        if IOIPAO <> nil then OleInPlaceActiveObject := IOIPAO;
      end;
    end;
    if OleInPlaceActiveObject <> nil then
      if ((Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP)) and
        (Msg.wParam in StdKeys) then
        //nothing  -  do not pass on Backspace, Left, Right, Up, Down arrows
      else OleInPlaceActiveObject.TranslateAccelerator(Msg);
  end;
end;
//====================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
 Application.OnMessage:= MsgHandler;
 //wczytuje stronę z czatem polchatu i zakłada pokój...
 WebBrowser1.Navigate('//www.polchat.pl/chat/?room=PrzykladowyPokoj');
end;
//-----------------------------------------------------
initialization
  OleInitialize(nil);

finalization
  OleUninitialize;
END.