[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  ActiveX,
  ComObj,
  Windows, Messages, SysUtils, Variants,
  MSScriptControl_TLB in 'MSScriptControl_TLB.pas';

var
  ScriptControl: IScriptControl;
  Parameters: OleVariant;
  Params: PSafeArray;

begin
  OleInitialize(nil);
  ScriptControl:=CreateComObject(CLASS_ScriptControl) as IScriptControl;
  ScriptControl.Language:='javascript';
  ScriptControl.AddCode('function showmessage(msg, ttl) {var WScriptShell = new ActiveXObject("WScript.Shell"); WScriptShell.Popup(msg, 60, ttl);}');
  Parameters:=VarArrayOf(['Сообщение', 'Заголовок']);
  Params:=PSafeArray(VarArrayAsPSafeArray(Parameters));
  ScriptControl.Run('showmessage', Params);
end.