[NumLock]

Код:

  with CreateComObject(CLASS_ScriptControl) as IScriptControl do
  begin
    Language:='JScript';
    ShowMessage(Eval('2*3-5'));
  end;