[seeman_tm]

Доброго времени суток.
Имеется JavaScript. Из-за большого объёма скрипта, перевести его на делфийский язык не представляется возможным.
Решил его пользовать через Microsoft ScriptControl 1.0.

Делаю следующим образом.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

procedure TForm1.Button1Click(Sender: TObject); var ScriptControl: TScriptControl;  pPar:PSafeArray;  varr,res:Variant;  pkBaseURL: String;  Script, LineScript: String;  ScriptFile: TextFile; 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(Self);     ScriptControl.Language := 'JavaScript';     ScriptControl.AddCode(Script);       varr:=VarArrayCreate([0, 1], varVariant);     pkBaseURL := 'http://piwik.rehcusebe.ru/';     varr[0]:= pkBaseURL + 'piwik.php';     varr[1]:=1;     pPar:=PSafeArray(TVarData(varr).VArray);     res:=ScriptControl.Run('Piwik.getTracker',pPar);     ShowMessage(res);     FreeAndNil(ScriptControl);   end;

В момент отработки строчки кода

Код:

1	ScriptControl.AddCode(Script);

Выдаёт ошибку. Посмотреть можно на вложенном изображении.
Так же выкладываю архив сo скриптом. И им же самым, только после приведения кода в божеский вид в формате *.docx.

Прошу подсказать, в чём проблема ? Как и где надо задать определение ?