[Помогите!] помогите с браузером

[nuмbеrОNЕ]

Помогите решить проблему в коде !

даю сам код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ToolWin, OleCtrls, SHDocVw, ImgList, Vcl.Menus;

type
  Tbrowser = class(TForm)
    WebBrowser1: TWebBrowser;
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    ComboBox1: TComboBox;
    OpenDialog1: TOpenDialog;
    StatusBar1: TStatusBar;
    ProgressBar1: TProgressBar;
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure WebBrowser1StatusTextChange(Sender: TObject;
      const Text: WideString);
    procedure WebBrowser1ProgressChange(Sender: TObject; Progress,
      ProgressMax: Integer);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  browser: Tbrowser;

implementation

{$R *.dfm}

procedure Tbrowser.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key= VK_RETURN then
WebBrowser1.Navigate(ComboBox1.Text);
end;

procedure Tbrowser.N2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
end;

procedure Tbrowser.N3Click(Sender: TObject);
begin
WebBrowser1.GoBack;
end;

procedure Tbrowser.N4Click(Sender: TObject);
begin
WebBrowser1.GoForward;
end;

procedure Tbrowser.N5Click(Sender: TObject);
begin
WebBrowser1.Stop;
end;

procedure Tbrowser.N6Click(Sender: TObject);
begin
WebBrowser1.Refresh;
end;

procedure Tbrowser.ToolButton1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
WebBrowser1.Navigate(OpenDialog1.FileName);
ComboBox1.Text:=OpenDialog1.FileName;
end;
end;

procedure Tbrowser.ToolButton2Click(Sender: TObject);
begin
WebBrowser1.GoBack;
end;

procedure Tbrowser.ToolButton3Click(Sender: TObject);
begin
WebBrowser1.GoForward;
end;

procedure Tbrowser.ToolButton4Click(Sender: TObject);
begin
WebBrowser1.Stop;
end;

procedure Tbrowser.ToolButton5Click(Sender: TObject);
begin
WebBrowser1.Refresh;
end;

procedure Tbrowser.ToolButton6Click(Sender: TObject);
var
PostData, Headers:OLEvariant;
begin
WebBrowser1.ExecWB(OLECMDID_PRINT,OLECMDEXECOPT_DODEFAULT,PostData, Headers);
end;

procedure Tbrowser.WebBrowser1StatusTextChange(Sender: TObject;
  const Text: WideString);
begin
StatusBar1.SimpleText:=Text;
end;

procedure Tbrowser.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
ProgressBar1.Max:=ProgressMax;
ProgressBar1.Position:=Progress;
end;

end.

написал вроде все нормально но ошибки такие пару есть.
первое
ошибка сценария браузера !
и сама страница браузера скачет именно в плане онлаин игр
прошу помочь
пс: сама главная цель кодировка в порядке.

[Dimedrol1536]

Цитата: Сообщение от nuмbеrОNЕ ошибка сценария браузера ! и сама страница браузера скачет именно в плане онлаин игр прошу помочь

Есть готовын исходники браузеров.
Если не ошибаюсь, тебе надо задействовать Java.

[Sinyss]

Тут как бы 2 варианта.
Крашится браузер, из за старой версии или же ошибки в выполнении скриптовых сценариев Javascript или Java.