Не срабатывает таймер

[Lynx]

версия 162. написал вроде всё правильно.var
monster:ttimer;
procedure Init; //Вызывается при включении скрипта
begin
monster:=TTimer.Create(nil);
monster.OnTimer:=@Onmonster; //
monster.enabled:=false; //
monster.interval:=5000;

end;


procedure SAY(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClient;
end;
procedure OnMonster;
begin
say('hallo');
end;
procedure Free; //Вызывается при выключении скрипта
begin
monster.enabled:=false;
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
monster.enabled:=true;
end.

[alexteam]

ну, да... правильно...
var
monster:ttimer;

procedure Init; //Вызывается при включении скрипта
begin
useforconnectname = 'connectionname'; //1
monster:=TTimer.Create(nil);
monster.OnTimer:=@Onmonster;
monster.enabled:=false;
monster.interval:=5000;
end;

procedure Free; //Вызывается при выключении скрипта
begin
monster.free;
end;

procedure SAY(msg:string);
begin
buf := '';
writemask('cddss',[#$4a,0,10,'',msg]);
SendToClient;
end;

procedure OnMonster(sender:tobject); //2
begin
say('hallo');
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
monster.enabled := true;

end.

[Lynx]

Хм раньше и так работало.