[goodvin1709]

Дядя supernewbie я вам очень блогодарен.
Но я непонел чуток:
Оффтоп

function OnCallMethod(const ConnectId, ScriptId: integer;const MethodName: String;var Params,FuncResult: Variant ): Boolean; stdcall;
begin
Result := false;
if MethodName='PLAY' then
begin
Play(params[0]);
Result:=true;
exit;
end;

Именно эту процедуру я непонел.