[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  ActiveX,
  ComObj,
  Variants,
  MSScriptControl_TLB in 'MSScriptControl_TLB.pas';

var
  ScriptControl: IScriptControl;
  Expression: WideString;
  Eval: OleVariant;

begin
  OleInitialize(nil);
  ScriptControl:=CreateComObject(CLASS_ScriptControl) as IScriptControl;
  ScriptControl.Language:='javascript';
  
  (* вычисляемое выражение *)
  Expression:='Math.sqrt(9)*5+985';

  Eval:=ScriptControl.Eval(Expression);
  Writeln(Expression+' = '+VarToStr(Eval));
  Writeln('Press Enter key...');
  Readln;
end.