[NumLock]

ну уж такие элементарные вопросы задавать... я уж и пример удалил

Код:

var
  ScriptControl: IScriptControl;
begin
  OleInitialize(nil);
  ScriptControl:=CreateComObject(CLASS_ScriptControl) as IScriptControl;
  ScriptControl.Language:='javascript';
  Label1.Caption:=ScriptControl.Eval('s = "'+Edit1.Text+'"; s');
end;

в Edit1 текст "\u041f\u0440\u0438\u0432\u0435\u0442" без кавычек