[xhgz]

Так работает

Код:

var
  sc: Variant;
begin
  sc:=CreateOLEObject('MSScriptControl.ScriptControl');
  SC.Language:='VBScript';
  SC.Timeout:=-1;
  SC.AllowUI:=True;
  SC.AddCode(Memo1.Text);
  SC.Run;

vbs

MsgBox "My Message Box Title",4,"My Message Box Message"

Но, после выходит ошибка EOleSysError with message "Недопустимое число параметров".