[NumLock]

Сообщение от xhgz

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

см. в писание методы:

procedure ExecuteStatement(const Statement: WideString); safecall;
function Run(const ProcedureName: WideString; var Parameters: PSafeArray): OleVariant; safecall;

>>

Код:

ExecuteStatement('MsgBox "My Message Box Title",4,"My Message Box Message"');