Не работает скрипт

[My2pac2]

Написал скрипт

procedure SendMsg2(Msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(Msg);
SendToClient;
end;

procedure Init; 
begin
SendMsg2('текст');
end;

procedure Free;
begin

end;

begin

end.

Но при установке галочки возле имени скрипта в анонсы не выводится сообщение. Версия пакетхака 3.5.33.164, играю на грации финал.

Скрипт на вкладке "Выполнить" показывает сообщение в чат

begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS('Hello!!!');
SendToClient;
end.

[alexteam]

в инит, фри, и событиях таймера -
SendToClientEx('Имя соединения')

[My2pac2]

Спасибо! Все заработало