[seeman_tm]

Ага, тнх. Натолкнуло на мысль.
Сделал. Но вот не задача. Появилась другая ошибка. Смотрите прикреплённый скриншот.

Вот собственно код в делфи:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
ScriptControl: TScriptControl;
 pPar:PSafeArray;
 varr,piwikTracker:Variant;
 pkBaseURL: String;
 Script, LineScript: String;
 ScriptFile: TextFile;
 Document: IDispatch;
begin
   AssignFile(ScriptFile,'piwik.js');
    Reset(ScriptFile);
if IOResult <> 0 then
  begin
    MessageBox(0,'Ошибка доступа к файлу.','ОШИБКА',0);
    exit;
  end;

  // чтение из файла
  while not EOF(ScriptFile) do
  begin
    readln(ScriptFile, LineScript); // прочитать строку из файла
    Script := Script + LineScript+#13+#10;
  end;

  Memo1.Text := Script;
  CloseFile(ScriptFile);


    ScriptControl := TScriptControl.Create(Nil);
    ScriptControl.Language := 'JavaScript';
    ScriptControl.AddCode('var document= new Object("[object HTMLDocument]");');
    ScriptControl.AddCode('var navigator= new Object("[object Navigator]");');
    ScriptControl.AddCode('var screen= new Object("[object Screen]");');
    ScriptControl.AddCode('var window= new Object("[object Window]");');
    ScriptControl.AddCode('window.location = new Object("[object window.location]");');
    ScriptControl.AddCode('window.location.href = "[window.location.href]";');
    ScriptControl.AddCode(Script);

 {   pkBaseURL := 'http://piwik.rehcusebe.ru/';
    varr:=VarArrayCreate([0, 1], varVariant);
    varr[0]:= pkBaseURL + 'piwik.php';
    varr[1]:= 1;

    pPar:=PSafeArray(TVarData(varr).VArray);
 //   piwikTracker :=ScriptControl.Run('Piwik.getTracker',pPar);     }
    ShowMessage('OK '+piwikTracker);
    FreeAndNil(ScriptControl);

end;

Как видно, скрип не запускается. Ошибка сыпется при добавлении кода.

Код:

ScriptControl.AddCode(Script);

Посоветуйте, как победить эту ошибку ?