[NumLock]

если лень самому написать такую простую функцию можно попросить помощь у Microsoft:

Код:

uses
  MSScriptControl_TLB, ActiveX, ComObj,    
...
var
  ScriptControl: IScriptControl;
begin
  ScriptControl:=CreateComObject(CLASS_ScriptControl) as IScriptControl;
  ScriptControl.Language:='javascript';
  ShowMessage(ScriptControl.Eval('"\u043f\u0440\u0438\u0432\u0435\u0442"'));
end;

код 100% рабочий и на отсутствие MSScriptControl_TLB не ругается.